figuur nr?

[wilbert1967]

Hallo

de regel ActiveSheet.Shapes("Picture 8").Visible = False
bevat de tekst Picture 8 . Deze is variabel en afhankelijk van de afbeelding die getoond word. Met welk commando kan in de spreadsheet uitvragen welk afbeeldingnummer er is

Wilbert

 

[snabbi]

Deze code zal over alle plaatjes heen lopen. Je kan de namen opslaan in een array (variant) of natuurlijk gewoon in de loop je commando's zetten

Sub plaatjes()
Dim j As Integer
Dim i As Integer
Dim naam As String
i = ActiveSheet.Shapes.Count
j = 1
While j <= i
  ActiveSheet.Shapes(j).Select
  naam = Selection.Name
  j = j + 1
Wend
End Sub

 

[LucB]

Deze code maakt alle Pictures zichtbaar.

Sub ShowPictures()
Dim Sheet As Object
For Each Sheet In Sheets
If Sheet.Pictures.Count > 0 Then
Sheet.Pictures.Visible = True
End If
Next Sheet
End Sub

Verander True in False en ze zijn onzichtbaar.

 

[wilbert1967]

Hallo

Beide antwoorden zijn leuk om mee te spelen en te ontdekken wat ze doen
maar is niet wat ik bedoel
ik heb in een spreadsheet een foto als ik daarop klik zie ik links boven 1 de naam (vb figuur 23)
deze naam wil ik te weten komen

rara hoe kan dat?

Wilbert

 

[LucB]

Wilbert,

Is dit je bedoeling?

 

[wilbert1967]

ja dank u wel

 

[wilbert1967]

1 keer werkt het en daarna krijg ik een foutmelding
fout 1004 tijdens uitvoering:
Door de toepassing of door object gedefinieerde fout

vreemd want het voorbeeld programma werkt wel meerdere keren

wat kan de oorzaak zijn

 

[LucB]

Wilbert,

Is de afbeelding die je gebruikt wel een
"Picture" of in NL een "Figuur"?

 

[wilbert1967]

Figuur staat linksboven

 

[LucB]

Dat is in orde.

Kan verder niks verzinnen.
Error 1004 kan vanalles zijn.

Probeer je kopieer en plakactie van de module 1 opnieuw te doen.