Message 1 of 6
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I'm trying to make a multiline general note. And I tried adding the /n/r and \n\r to my string to split the string into multiple lines and VBA doesn't seem to care about those. Below is my code.
Dim oDrawdoc As DrawingDocument Set oDrawdoc = ThisApplication.ActiveDocument Dim oSheet As Sheet Set oSheet = oDrawdoc.Sheets.Item(1) Dim oSheets As Sheets: Set oSheets = oDrawdoc.Sheets Dim oGeneralNotes As GeneralNotes Set oGeneralNotes = ThisApplication.ActiveDocument.ActiveSheet.DrawingNotes.GeneralNotes Dim oTG As TransientGeometry Set oTG = ThisApplication.TransientGeometry Dim strText_Elevation As String strText_Elevation = "1. ALL ELEVATIONS TAKEN FROM FINISHED FLOOR." Dim strtext_Supports As String strtext_Supports = "2. ALL SUPPORTS TO HAVE ?1" & """" & "CLEARANCE FROM FINISHED FLOOR." Dim strFullNote As String strFullNote = strText_Elevation & "/r/n" & strtext_Supports Dim oGeneralNote As GeneralNote Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(0.5, 2), strFullNote) oGeneralNotes.Item(oGeneralNotes.Count()).TextStyle.FontSize = 0.6 * 0.254 oGeneralNotes.Item(oGeneralNotes.Count()).TextStyle.Rotation = pi / 2
Any help would be greatly appreciated.
Thank you!
Tiffany Hayden
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Solved! Go to Solution.