Thema Datum  Von Nutzer Rating
Antwort
26.07.2022 13:00:44 Ernst
NotSolved
Blau Makro auslösen durch rechts oder links Klick auf Form
 26.07.2022 19:58:15 xlKing
NotSolved
30.07.2022 11:59:46 Gast71668
NotSolved
30.07.2022 16:02:54 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
26.07.2022 19:58:15		 Views:
796		 Rating:
     
Antwort:
  Ja
Thema:
Makro auslösen durch rechts oder links Klick auf Form

Hallo Ernst,

bei Einer Zeichnungsform kannst du mit einem Rechtsklick leider kein Makro auslösen. Es sei denn es handelt sich um ein ActiveX-Steuerelement. Das ist bei Kreisen aber nicht der Fall. Mit einem Rechtsklick soll hier ja schließlich im Normalfall das Kontextmenü zur Formatierung geöffnet werden.

Falls es sich aber nur um die zwei Eigenschaften schwarze Füllung / weiße Füllung handelt, dann brauchst du dem Objekt nur folgendes Standardmakro zuweisen (Rechtsklick -> Makro zuweisen). Das Makro kommt in ein Standardmodul (z.B. Modul1)

Sub FormFuellen()
  
  Dim sh As Shape
  Set sh = ActiveSheet.Shapes(Application.Caller)

  If sh.Fill.ForeColor.RGB = vbBlack Then
     sh.Fill.ForeColor.RGB = vbWhite
  Else
     sh.Fill.ForeColor.RGB = vbBlack
  End If

End Sub

Wenn du nun auf einen der Kreise klickst wird dieser entweder schwarz oder weiß formatiert. Je nachdem, welche Farbe er vorher hatte.

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.07.2022 13:00:44 Ernst
NotSolved
Blau Makro auslösen durch rechts oder links Klick auf Form
 26.07.2022 19:58:15 xlKing
NotSolved
30.07.2022 11:59:46 Gast71668
NotSolved
30.07.2022 16:02:54 xlKing
NotSolved