Thema Datum  Von Nutzer Rating
Antwort
Rot ToolTipText
13.04.2023 08:50:06 Julaka
Solved
13.04.2023 12:34:07 Ulrich
NotSolved
13.04.2023 13:32:28 Gast79500
NotSolved
13.04.2023 21:50:11 xlKing
NotSolved
19.04.2023 13:29:27 Gast79500
NotSolved
21.04.2023 21:21:12 xlKing
NotSolved
23.04.2023 13:37:50 Gast79500
NotSolved
24.04.2023 00:36:40 xlKing
NotSolved
25.04.2023 01:22:27 Gast79500
NotSolved
25.04.2023 19:09:57 xlKing
NotSolved
26.04.2023 16:23:30 sauber....;-)....
NotSolved
13.04.2023 22:36:52 volti
Solved
14.04.2023 11:39:22 Julaka
NotSolved
14.04.2023 11:50:10 volti
Solved
14.04.2023 14:29:39 Julaka
NotSolved
14.04.2023 17:59:56 volti
Solved
17.04.2023 11:24:58 Julaka
Solved
21.04.2023 08:01:45 Julaka
NotSolved
21.04.2023 09:20:28 volti
NotSolved

Ansicht des Beitrags:
Von:
Julaka
Datum:
13.04.2023 08:50:06
Views:
814
Rating: Antwort:
 Nein
Thema:
ToolTipText

Hallo zusammen

Ich habe folgenden Code gefunden um einen Tooltiptext einer Shape hinzuzufügen. Das funktioniert super ausser mit Commanbuttons (Active-X)

Sub AddToolTip()
  
  Dim selectedShapes As Shape
  Dim toolTipText As String
  
  toolTipText = "1. Test" & vbCr & "2. Test" & vbCr & "3. Test"
                                      
  For Each selectedShapes In Selection.ShapeRange
  
    ActiveSheet.Hyperlinks.Add _
        Anchor:=selectedShapes, _
        Address:="", _
        ScreenTip:=toolTipText
  Next
  End Sub

Nun möchte ich aber diesen TooltipText direkt einer Shape zuweisen, also nicht über die aktive Auswahl. Zum Beispiel fix dem Commanbutton14.
Das habe ich wie folgt umgemünzt:

 

  Sub AddToolTip14()
  
  Dim toolTipText As String
  
  toolTipText = "1. Test" & vbCr & "2. Test" & vbCr & "3. Test"
  
    ActiveSheet.Hyperlinks.Add _
        Anchor:=ActiveSheet.Shapes.Range(Array("CommandButton14")), _
        Address:="", _
        ScreenTip:=toolTipText

  End Sub

Das funktioniert ebenfalls wenn Anchor eine Zelle ist. Ich bringe es aber nicht hin Anchor auf eine Shape zu beziehen wie ein Commanbutton.


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
Rot ToolTipText
13.04.2023 08:50:06 Julaka
Solved
13.04.2023 12:34:07 Ulrich
NotSolved
13.04.2023 13:32:28 Gast79500
NotSolved
13.04.2023 21:50:11 xlKing
NotSolved
19.04.2023 13:29:27 Gast79500
NotSolved
21.04.2023 21:21:12 xlKing
NotSolved
23.04.2023 13:37:50 Gast79500
NotSolved
24.04.2023 00:36:40 xlKing
NotSolved
25.04.2023 01:22:27 Gast79500
NotSolved
25.04.2023 19:09:57 xlKing
NotSolved
26.04.2023 16:23:30 sauber....;-)....
NotSolved
13.04.2023 22:36:52 volti
Solved
14.04.2023 11:39:22 Julaka
NotSolved
14.04.2023 11:50:10 volti
Solved
14.04.2023 14:29:39 Julaka
NotSolved
14.04.2023 17:59:56 volti
Solved
17.04.2023 11:24:58 Julaka
Solved
21.04.2023 08:01:45 Julaka
NotSolved
21.04.2023 09:20:28 volti
NotSolved