Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Image (Grafik) in Userform drehen


Betrifft: Image (Grafik) in Userform drehen von: Dieter(Drummer)
Geschrieben am: 25.10.2017 14:32:28

Guten Tag VBA Spezialisten,

auf Userform1 ist eine Grafik (Image) "Pfeil1". Dieser "Pfeil1" soll sich bei Klick auf den Pfeil1 drehen. Mein Makro zeigt einen Fehler: "Laufzeitfehler 9", Index außerhalb des gültigen Bereichs" und Zeile

  • Set objShp = Sheets("Userform1").Shapes("Pfeil1")

  • wird gelb markiert.

    Hier mein Code und meine Musterdatei:
  • Private Sub Pfeil1_Click()
        Dim objShp As Shape
        Set objShp = Sheets("Userform1").Shapes("Pfeil1")
        objShp.Rotation = objShp.Rotation + 45
        Set objShp = Nothing
    End Sub

  • https://www.herber.de/bbs/user/117209.xlsm
    Mir der Bitte um Hilfe, grüßt
    Dieter(Drummer)

      

    Betrifft: AW: Image (Grafik) in Userform drehen von: EtoPHG
    Geschrieben am: 25.10.2017 14:42:32

    Hallo Dieter,

    Was ist denn das für ein Code?
    Ein Worksheet "Userform1" existiert nicht in deiner Datei!
    Ein Image-Control ist kein Shape-Objekt!
    Ein Image in einer Userform lässt sich nicht rotieren!

    Einfacher Ansatz: Für jede Stellung ein Image in die Userform übereinanderlegen und jeweils das "Richtige" (d.h. das Nächste) in der ZOrder Eigenschaft nach oben schieben!

    Gruess Hansueli


      

    Betrifft: AW: Image (Grafik) in Userform drehen von: Dieter(Drummer)
    Geschrieben am: 25.10.2017 14:49:34

    Danke Hansueli,
    das mit den übereinderliegenden Images, kannte ich ich, hatte jedoch die Hoffnung, es geht auch anders.

    Danke für deinen Hinweis und
    Gruß, Dieter(Drummer)


      

    Betrifft: AW: Image (Grafik) in Userform drehen von: Nepumuk
    Geschrieben am: 25.10.2017 14:42:51

    Hallo Dieter,

    das Bild in deinem Userform ist kein Shape sondern ein Image-Control. Das kannst du nicht drehen. Ich werde dir mal was basteln um es doch zu drehen, dauert aber ein bisschen.

    Gruß
    Nepumuk


      

    Betrifft: AW: Image (Grafik) in Userform drehen von: Dieter(Drummer)
    Geschrieben am: 25.10.2017 14:47:05

    Danke Nepumuk,

    du hattest mir ja gestern schon sehr und perfekt geholfen.
    Freue mich dann auf eine Lösung von dir. Bitte kein Streß, es eilt überhaupt nicht.

    Herzlichen Dank vorab und Gruß,
    Dieter(Drummer)


      

    Betrifft: AW: Image (Grafik) in Userform drehen von: Nepumuk
    Geschrieben am: 25.10.2017 14:50:11

    Hallo Dieter,

    so fertig: https://www.herber.de/bbs/user/117211.xlsm

    Gruß
    Nepumuk


      

    Betrifft: AW: Danke Nepumuk, perfekt ... von: Dieter(Drummer)
    Geschrieben am: 25.10.2017 14:59:45

    ... aber da musste ja eine Menge Codes für her.
    Wenn ich das richtig probiert haben, geht es nur mit dem Pfeil (Image) auf dem Tabellenblatt in Verbindung.

    Herzlichen Dank für deine erneute Hilfe und perfekt funktionierende Lösung.

    Gruß, Dieter(Drummer)


      

    Betrifft: wozu soll das denn gut sein? drehender Pfeil :-( von: robert
    Geschrieben am: 25.10.2017 15:02:34




      

    Betrifft: Kompass, wenn der Hahn kräht a d M, ... owT von: lupo1
    Geschrieben am: 27.10.2017 10:13:07




      

    Betrifft: AW: drehender Pfeil mit Text von: Daniel
    Geschrieben am: 25.10.2017 15:31:20

    Hi

    wenns tatsächlich um einen Pfeil geht der um 45° gedreht werden soll, dann könne es eventuell ausreichen, ein Label anzulegen und mit der Schriftart Wingdings3 zu formatierten.

    in Wingdings3 gibt es Pfeile in 45°-Schritten als normales Zeichen (ASCII-Code 209-216, 217-224, 225-232)

    du müsstest also bei KLick nur das richtige Zeichen ins Label schreiben.
    https://www.herber.de/bbs/user/117218.xlsm

    Gruß Daniel


      

    Betrifft: AW: Danke Daniel ... von: Dieter(Drummer)
    Geschrieben am: 25.10.2017 15:43:48

    ... auch eine mögliche Variante, die auch gut funktioniert.

    Herzlichen Dank und
    Gruß, Dieter(Drummer)


    Beiträge aus den Excel-Beispielen zum Thema "Image (Grafik) in Userform drehen"