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

Change Shape Text
 

I think this
If Sheet27.Range("C1").Text < "" Then
On Error Resume Next
shp.TextFrame.Characters.Text = "My Button"


should be this
If Sheet27.Range("C1").Text = "" Then
shp.TextFrame.Characters.Text = "My Button"
end if

I haven't tested it though


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

Change Shape Text
 

Thanks so much Mally.....

I had finally worked it out for myself....

Took forever for me to find the answer....but I got it...


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