ActiveSheet.Shapes.SelectAll
alebo v prípade, že niektoré sú Invisible, alebo inak nežiadúce vo výsledku, tak potom takto:
Sub Select_all()
Dim sh As Shape, sel()
For Each sh In ActiveSheet.Shapes
If sh.Visible Then
If Not Not sel Then ReDim Preserve sel(1 To UBound(sel) + 1) Else ReDim sel(1 To 1)
sel(UBound(sel)) = sh.Name
End If
Next sh
ActiveSheet.Shapes.Range(sel).Select
End Subcitovat
alebo v prípade, že niektoré sú Invisible, alebo inak nežiadúce vo výsledku, tak potom takto:
Sub Select_all()
Dim sh As Shape, sel()
For Each sh In ActiveSheet.Shapes
If sh.Visible Then
If Not Not sel Then ReDim Preserve sel(1 To UBound(sel) + 1) Else ReDim sel(1 To 1)
sel(UBound(sel)) = sh.Name
End If
Next sh
ActiveSheet.Shapes.Range(sel).Select
End Subcitovat
RSS nejnovější články