VBA to Select all Shapes on the sheet

[1stNoobie]

This there a way to change the below code to select all Diagrams on the active sheet?

ActiveSheet.Shapes.Range(Array("Diagram 452")).Select

 

[Rick Rothstein]

This there a way to change the below code to select all Diagrams on the active sheet?

ActiveSheet.Shapes.Range(Array("Diagram 452")).Select

If the only shapes on the active sheet are diagrams, then you can select them all with this single line of code...

Sub SelectAllShapesOnTheActiveSheet()
  ActiveSheet.Shapes.SelectAll
End Sub

However, if there could be other shapes on the worksheet along with the diagrams, then you could use this code to select all the diagrams only...

Sub SelectAllDiagramsOnActiveSheet()
  Dim Dia As Diagram, Sh As Shape
  For Each Sh In ActiveSheet.Shapes
    If Sh.Type = msoDiagram Then Sh.Select False
  Next
End Sub

 

[Trebor76]

Don't worry - Rick has provided a detailed solution

 

[1stNoobie]

Thank you Both for the HELP! I sure do enjoy this community!!

 

[Trebor76]

Thank you Both for the HELP!

As much as I appreciate that, Rick is the only one who should be thanked here

 

[gpierce]

I have a workbook that has several rounded rectangle shapes on it that I want to be able to mouse click and change the color between no fill red or green. I can perform on any cell on the sheet using the following code but cant get it to work for shapes. can you help?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Interior.ColorIndex
Case xlNone, 4: Target.Interior.ColorIndex = 3
Case Else: Target.Interior.ColorIndex = 4
End Select
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.ColorIndex = xlNone
End Sub