Toggle Shadow on currently selected object

RyderS

New Member
Joined
Oct 22, 2015
Messages
4
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

Well-known Member
Joined
Nov 16, 2016
Messages
647
this should help, modify to your needs

Code:
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
 
Last edited:

Forum statistics

Threads
1,085,372
Messages
5,383,262
Members
401,820
Latest member
RustEE2020

Some videos you may like

This Week's Hot Topics

Top