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
640
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,084,738
Messages
5,379,520
Members
401,611
Latest member
jmathews440

Some videos you may like

This Week's Hot Topics

  • VBA code giving errors and stopping Excel
    Hello Experts, I have this code being used to loop through files in a file path, and copy specific data to another sheet. It is giving me several...
  • Disable MsgBox message
    Morning, I have a userform where if i leave a ComboBox empty i see a MsgBox warning me that i must enter an invoice number. It is this MsgBox i...
  • Macro Recorder into VBA, Copy Paste Data Filled Cells
    Hi Everyone, I have a macro recorder file that takes a selection of data, copies, then pastes into a new sheet on ("A2:B2") The issue is my...
  • Number format changes while pasting into a cell
    Hi, I am trying to paste a number 180204524303 from an email to an excel cell, however, whenever i try to do so , the the paste value appears as...
  • Collating data
    Hello all. Could someone please help. I am trying to pull all column data from multiple sheets (24 I total so far) into 1 master sheet without...
  • Sum Multiple Columns Based on Multiple Criteria
    I am trying to consolidate data by summing columns G through M based on material, plant, vendor, and fiscal year being identical. The period does...
Top