Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Grafik mit Button drehen | Herbers Excel-Forum


Betrifft: Grafik mit Button drehen von: Roger
Geschrieben am: 30.12.2009 18:46:04

Hallo Zusammen,

im Excel kann eine Grafik in den Eigenschaften gradweise gedreht werden. Gibt es eine möglichkeit dies auch mit einem Button der in der Tabelle plaziert ist zu realiesieren, so dass sich die Grafik bei jedem drücken um 1 Grad dreht.

Wenn jemand eine Idee hätte würde ich mich darüber freuen.

Besten Dank im voraus

Gruss Roger

  

Betrifft: AW: Grafik mit Button drehen von: ransi
Geschrieben am: 30.12.2009 18:59:56

Hallo

Versuch mal...
Option Explicit

Private Sub CommandButton1_Click()
With Sheets("TAbelle1").Shapes("Rectangle 1")
    If .Rotation = 359 Then
        .Rotation = 0
        Else:
        .Rotation = .Rotation + 1
    End If
End With
End Sub



ransi


  

Betrifft: AW: Grafik mit Button drehen von: Jürgen
Geschrieben am: 30.12.2009 19:06:13

Hi Ransi,
habs getestet, es funktioniert, allerdings mußte ich bei mir das Private weg nehmen,
sonst konnte ich es dem Button nicht zuweisen.

Gruß Jürgen


  

Betrifft: AW: Grafik mit Button drehen von: Roger
Geschrieben am: 30.12.2009 19:30:40

Hallo Ransi,

Besten Dank für die schnelle Hilfe, Dein Beispiel klappt einwandfrei.
Aber eine kleine Frage hätte ich da noch:

Ich würde gerne ein Drehfeld oder ein SpinButton in meiner Tabelle platzieren. Mit diesem Button sollte ich in der Zelle A1 den Gradwert um 1 Grad erhöhen oder reduzieren und dieser sollte dann auch bei 360 Grad wieder auf 0 zurückfallen. Dein Beispiel müsste dann den Gradwert aus der Zelle A1 nehmen.

Geht das überhaupt?


  

Betrifft: AW: Grafik mit Button drehen von: Jürgen
Geschrieben am: 30.12.2009 20:05:51

Hallo Ransi,

so ?

Gruß Jürgen

https://www.herber.de/bbs/user/66904.xls


  

Betrifft: AW: Grafik mit Button drehen von: Roger
Geschrieben am: 30.12.2009 21:03:51

Hallo Jürgen,



Genau das meine ich!!

Das funktioniert einwandfrei und ist genau das was ich mir vorgestellt habe.



Herzlichen Dank



GRuss Roger


  

Betrifft: AW: Grafik mit Button drehen von: F1
Geschrieben am: 30.12.2009 19:12:36

Code ins Tabellenmodul:

Sub Drehen()
Me.Shapes("Rectangle 1").IncrementRotation 1
End Sub
F1


Beiträge aus den Excel-Beispielen zum Thema "Grafik mit Button drehen"