Afbeelding verbergen

Status
Niet open voor verdere reacties.
K

karel1982

Gebruiker
Lid geworden
21 mrt 2008
Berichten
61
Beste,

Ik gebruik onderstaande formule om afbeeldingen te verbergen.

Sub Knop1_Klikken()

ActiveSheet.Shapes.Range(Array("DDHG")).Visible = True
ActiveSheet.Shapes.Range(Array("DDVH")).Visible = False
ActiveSheet.Shapes.Range(Array("DDM")).Visible = False

End Sub


Dit zou ik moeten doen voor een 10-tal verschillende afbeeldingen.
Maar dan moet ik telkens de 'True' en 'False' aanpassen, wat heel wat werk is.

Is er een mogelijkheid dat ik enkel de "DDHG" zichtbaar laat en de rest in één keer verberg?
 
a. Zou genoeg moeten zijn om alle arrays in 1 regel te noemen en die op False te zetten. Daarna (voor de zekerheid) die van DDHG op True zetten:
Code: 
Sub Knop1_Klikken()

ActiveSheet.Shapes.Range(Array("DDVH", "DDM", "Array3", "Array4", "Array5", "Array6")).Visible = False
ActiveSheet.Shapes.Range(Array("DDHG")).Visible = True

End Sub

b. Ik dacht in eerste instantie aan een "for each" lus (zodat je niet de array-namen hoeft te noemen), waarna je (alleen) DDHG weer op Visible zet, maar ik ben niet zeker of je daarmee (uitsluitend) de relevante arrays te pakken hebt of mogelijk ook arrays die je niet wilt meenemen in het geheel of andere ellende/problemen over jezelf afroept.

Tijs.
 
Toevoeging: Lijkt erop dat, m.b.t. b., het volgende zou moeten werken:

Code: 
Sub Knop1_Klikken()

For Each shp In ActiveSheet.Shapes
     shp.Visible = False
Next
ActiveSheet.Shapes.Range(Array("DDHG")).Visible = True

End Sub

Ik ben niet 100% zeker van de correcte werking ervan, dus zul je eerst moeten testen (bijv. op een kopie van je originele Excel bestand).

Tijs.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan