View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
rhani111 rhani111 is offline
external usenet poster
 
Posts: 1
Default Change Shape Text


Hi All,

I hope someone can help cause I'm pulling my hair out .......grrrr

I have a button that when clicked changes the text on the button to a
cell reference...no problems there.....BUT I cannot seem to get the
alternative text (if the cell reference is blank) to show up...

Here is what I have so far...

Dim shp As Shape
Set shp = ActiveSheet.Shapes("Button 415")
sText = Sheet27.Range("C1").Text
shp.TextFrame.Characters.Text = sText
If Sheet27.Range("C1").Text < "" Then
On Error Resume Next
shp.TextFrame.Characters.Text = "My Button"

can someone help PLEASE??? wahhhhhhhh


--
rhani111
------------------------------------------------------------------------
rhani111's Profile: http://www.excelforum.com/member.php...o&userid=19940
View this thread: http://www.excelforum.com/showthread...hreadid=561326