---

Guten Morgen zusammen,
ich finde das Problem in folgendem Code nicht - die Texthöhe wird nicht angepasst - alle texte werden einfach gelöscht. Kann mir einer von euch aushelfen / einen Tip geben?

Sub Note()

Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oLeaderNote As LeaderNote

For Each oLeaderNote In oDoc.ActiveSheet.DrawingNotes.LeaderNotes
   

    oText = oLeaderNote.Text
    oTextSize = oLeaderNote.Text
   
    Dim oFormattedText As String

   
  'oFormattedText = "<StyleOverride Bold='False'>" & oText & "</StyleOverride>"
   
 
 

oFormattedTex = "<StyleOverride FontSize='" & 0.3 & "'>" & "Text" & "</StyleOverride>"

      oLeaderNote.FormattedText = oFormattedText

Next
End Sub

Danke und Gruss

------------------
MFG

BlueJay

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Struddelfehler, du hast den Buchstaben "t" vergessen

Code:

---

oFormattedTex = "<StyleOverride FontSize='" & 0.3 & "'>" & "Text" & "</StyleOverride>"

---

neu

Code:

---

oFormattedText = "<StyleOverride FontSize='" & 0.3 & "'>" & "Text" & "</StyleOverride>"

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke (-: Manchmal ist mann einfach blind!

------------------
MFG

BlueJay

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP