how to change drawingnote format

[skyngu]

hi,

can anyone give me ideas how to change drawingnote text format in vba? such as color, font, size.

call drawingnote.text.color.setcolor (255,0,0)

seems not working.

thanks a lot.

[skyngu]

bump up

[xiaodong_liang · Accepted solution]

Hi,

DrawingNote.Text returns the text string only. Please refer to the code below. 

Sub test()

' assume a drawing note is selected
Dim oNote As DrawingNote
Set oNote = ThisApplication.ActiveDocument.SelectSet(1)

Dim oNewColor As Color
Set oNewColor = ThisApplication.TransientObjects.CreateColor(255, 0, 0)

oNote.Color = oNewColor

End Sub

[skyngu]

thanks