Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 20:08:47
Datum/Zeit in einer Zelle fixieren über Makros
17.05.2024 18:14:48
Aaaah! Tabelle erstellen mit Index
17.05.2024 17:37:33
letztes Zeichen in Zelle entfernen
17.05.2024 17:07:32
Problem bei Diagrammerstellung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1960to1964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Klick auf 3D Button, Darstellung vertieft und wieder 3D

Klick auf 3D Button, Darstellung vertieft und wieder 3D
06.02.2024 15:29:44
Dieter(Drummer)
Guten Tag an alle ...

Bei erstem Klick auf Button ("Grafik 1") wird Button vertieft dargestellt. Das klappt.
Bei weitem Klick auf Button ("Grafik 1") wird Button wieder zurück gesetzt auf 3 D. das klappt auch. Aber es wird nicht auf die Formatierung, wie vorher ("keine Abschrägung"), zurück gesetzt! Ich finde keinen Fehler im Code.

Es soll wieder die vorherige 3D Formatierung ("Keine Abschrägung") dargestellt werden.

Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)

Beispieldatei anbei:
https://www.herber.de/bbs/user/166831.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Klick auf 3D Button, Darstellung vertieft und wieder 3D
06.02.2024 17:31:13
Uduuh
Hallo,
Es soll wieder die vorherige 3D Formatierung ("Keine Abschrägung") dargestellt werden.
wozu? Es reicht doch 3D ein- und auszublenden. 
Sub Tief_Hoch_Click() 'Rechteck_Grafik Klick rein raus



  With ActiveSheet.Shapes("Picture 1").ThreeD

    .BevelTopInset = 12

    .BevelTopDepth = 10

    .Visible = Not .Visible

  End With

  

End Sub

Gruß aus'm Pott
Udo
AW: Klick auf 3D Button, Darstellung vertieft und wieder 3D
06.02.2024 19:20:16
Dieter(Drummer)
Hallo Udo,

Danke für Rückmeldung und deinen Code.
Ich musste wohl noch eine Zeile einfügen: 
.BevelTopType = msoBevelSoftRound
, damit eien Tiefe zu sehen ist.
So klappt es prima. Danke ...

Gruß, Dieter(Drummer)
Jetziger Code:
'Herber: Udo (Uduuh), 06.02.2024 15:29:44 
Sub A_Tief_Hoch_Click() 'Rechteck_Grafik Klick rein raus



  With ActiveSheet.Shapes("Picture 1").ThreeD

   .BevelTopType = msoBevelSoftRound 'Mx

    .BevelTopInset = 12

    .BevelTopDepth = 10

    .Visible = Not .Visible

  End With

  

End Sub
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige