Toggle Shadow on currently selected object

[RyderS]

Hi All,

I'd like to use VBA to toggle a shadow on the currently selected shape... I've tried a few things, but somehow I can't seem to get to the currently selected shape.

Might someone give me a leg up?

Thanks so much!

R

 

[JumboCactuar]

this should help, modify to your needs

Sub ActiveShape()
'PURPOSE: Determine the currently selected shape
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault


Dim ActiveShape As shape
Dim UserSelection As Variant


'Pull-in what is selected on screen
  Set UserSelection = ActiveWindow.Selection


'Determine if selection is a shape
  On Error GoTo NoShapeSelected
    Set ActiveShape = ActiveSheet.Shapes(UserSelection.Name)
  On Error Resume Next


'Do Something with your Shape variable
'example toggle

If ActiveShape.Shadow.Type = msoShadow21 Then
ActiveShape.Shadow.Visible = msoFalse
ElseIf ActiveShape.Shadow.Visible = msoFalse Then
ActiveShape.Shadow.Type = msoShadow21
End If


Exit Sub


'Error Handler
NoShapeSelected:
  MsgBox "You do not have a shape selected!"


End Sub

 

[RyderS]

Brilliant! It works well. *thanks*