3D Grafik per ScrollBar 1 und 2 ändern
24.02.2021 15:49:17
Dieter(Drummer)
Ich suche einen Code, der die 3D Grafik (Grafik1) per CrillBar 1 und 2, die Zahlen für:
z.B.
.BevelTopInset = 12
.BevelTopDepth = 4
ändert und die Änderungszahlen für CrolBar1 in Zelle E10 und für ScrolBar2 in Zelle E18 setzt.
In der Musterdatei ist nochmal alles erläutert und es wäre toll, wenn dies zu realisieren wäre.
Mit der Bitte um Hilf, grüßt
Dieter(Drummer)
https://www.herber.de/bbs/user/144212.xlsm
Anbei meine Musterdatei, in der eine 3D Grafik (Grafik1) nebst ScrollBar1 und ScrollBar2 ist.
Mit diesem Code kann ich die Grafik, z.B. vertieft darstellen oder wieder zurück ändern:
Sub Versunken_ja() 'Markierte Pictures versunken setzen
'ActiveSheet.Pictures.Paste.Select
With Selection.ShapeRange.ThreeD
.BevelTopType = msoBevelSoftRound
.BevelTopInset = 12
.BevelTopDepth = 4
End With
'[A1].Select
End Sub