Moin,
ich habe versucht, einen Führungslinientext in eine idw einzufügen, komme aber nicht weiter.
Hat jemand eine Idee?
Danke!
Marco
Public Sub SheetTextAdd()
' Set a reference to the drawing document.
' This assumes a drawing document is active.
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
' Set a reference to the active sheet.
Dim oActiveSheet As Sheet
Set oActiveSheet = oDrawDoc.ActiveSheet
Dim oLeaderNotes As LeaderNotes
Set oLeaderNotes = oActiveSheet.DrawingNotes.LeaderNotes
Dim oLeaderNote As LeaderNote
Set oLeaderNote = oLeaderNotes. ' (?????????)
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP