very strange

[Alisa]

I have never had this problem before, has anyone else?

This code adds a text box to a certain sheet and writes text in it:

Sheets(1).Select
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, _
0, 320#, 180#).Select
With Selection
.Characters.Text = "No " & constituent & " Data" 'ERROR ON THIS LINE
.HorizontalAlignment = xlCenter
End With


This is the error I get:
run-time error 438, object doesn't support this variable or method
When the error occurs, the text box is placed correctly and selected.

The strange thing is, the code works fine most of the time. I can't find any rhyme or reason as to why it works sometimes and not others. Any ideas?

 

[Juan Pablo González]

Selecting stuff is risky sometimes... try this:

<font face=Courier New>
<SPAN style="color:#00007F">Sub</SPAN> T()
   <SPAN style="color:#00007F">Dim</SPAN> Shp <SPAN style="color:#00007F">As</SPAN> Shape
  
   <SPAN style="color:#00007F">Dim</SPAN> constituent <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
   constituent = "something"
  
   <SPAN style="color:#00007F">Set</SPAN> Shp = Sheets(1).Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 320#, 180#)
  
   <SPAN style="color:#00007F">With</SPAN> Shp.TextFrame
      .Characters.Text = "No " & constituent & " Data"  <SPAN style="color:#007F00">'ERROR ON THIS LINE</SPAN>
      .HorizontalAlignment = xlCenter
   <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[Alisa]

Yes it works! Thank you so much, you have no idea how many hours I have spent trying to figure this out.

with tremendous gratitude, Alisa