Auf den Tabellenblatt sind 8 Shapes. Durch Buttonklick (CommandButton1) kann ich im Wechsel die Shapes in 3D darstellen oder nicht in 3D. Dies kann ich abenfalls auch durch Buttonklick auf einer Userform.
Das funktionert.
Das Problem ist, dass NUR die ersten 4 Shapes in 3D oder nicht 3D gesetzt werden können. Es werden immer nur die ersten 4 Shapes genutzt. Ich finde das Problem nicht.
Was ist in meinen Codes falsch, damit auch alle Shapes im Tabellenblatt im Wechsel 3D gesetzt werden können, es können auch mal mehr sein, OHNE die Namen der Shapes zu nutzen?
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Mein derzeitiger Code in Modul1, mit Musterdatei:
https://www.herber.de/bbs/user/163990.xlsm
Sub Ja_Nein_3d()
ActiveSheet.Shapes.SelectAll
If Selection.ShapeRange.ThreeD.Visible = msoFalse Then
Selection.ShapeRange.ThreeD.Visible = msoTrue
Else
Selection.ShapeRange.ThreeD.Visible = msoFalse
End If
[A1].Select
End Sub