MS Excel

Téma: Výběr tvarů pomocí vba

Zaslal/a Richard99 23.4.2015 15:44

Mám toto makro, po skončení zůstane vybrán poslední tvar. Potřeboval bych mít vybrané všechny, jako když držím shift.

Sub Select_all()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Visible Then sh.Select
Next sh
End Sub

Zaslat odpověď >

elninoslov(23.4.2015 18:05)#024605

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

Richard99(24.4.2015 9:41)#024617

Díky

ActiveSheet.Shapes.SelectAll úplně stačícitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.