TextBox Characters Method - Need Help
Sorry.
Try:
myTB.OLEFormat.Object.AutoScaleFont = False
myTB.TextFrame.Characters.Text = "asdfasdfasdfasdfasdfasdf"
myTB.TextFrame.Characters(Start:=1, Length:=23).Font.Name = "Arial"
MarkCR wrote:
Hi Dave:
Thanks for your response. It seemed like the right answer, but I am getting
the same error on the line:
myTB.OLEFormat.Object.Characters(Start:=1, Length:=23).Font.Name = "Arial"
Very strange...
Mark
"Dave Peterson" wrote:
From what I've read in the newsgroup, xl2007 has trouble when you select shapes.
Maybe you could do it without the selection:
Dim myTB As Shape
Set myTB = ActiveChart.Shapes.AddTextbox _
(msoTextOrientationHorizontal, 500, 80, 120, 60)
myTB.OLEFormat.Object.AutoScaleFont = False
myTB.OLEFormat.Object.Characters(Start:=1, Length:=23).Font.Name = "Arial"
--
Dave Peterson
|