ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,251
- Office Version
- 2007
- Platform
- Windows
Ive been playing hours on this but not getting anywhere.
Can you advise please where im going wrong.
This code below is currently in use.
I see the comments box/shape etc but altering the Font size nothing changes.
Font isnt Calibri
Shape Style Preset13 is blue at all.
Ive attached a screenshot of the comments box.
I get no run time errors etc so why is the code saying how it should be but the output is anythng but ?
Can you advise please where im going wrong.
This code below is currently in use.
I see the comments box/shape etc but altering the Font size nothing changes.
Font isnt Calibri
Shape Style Preset13 is blue at all.
Ive attached a screenshot of the comments box.
I get no run time errors etc so why is the code saying how it should be but the output is anythng but ?
Rich (BB code):
If Len(sText) > 0 Then
With oShape.TextFrame
.Characters.Text = sText
.Characters.Font.Name = "Calibri"
.Characters.Font.Size = 12
.Characters.Font.Bold = True
.HorizontalAlignment = x1HAlignCenter
.VerticalAlignment = x1VAlignCenter
Shape.ShapeStyle = msoShapeStylePreset13
End With
End If