Hi,I'm new to the forum. I am trying to change text in an autoshape in vba but i get an error. Any ideas. Code below
[/Dim c
c = Application.Caller
With ActiveSheet.Shapes(c)
.OLEFormat.Object.Characters.Text = "Form complete!"
.Fill.ForeColor.SchemeColor = 17
.Fill.Transparency = 0#
.Line.Weight = 2#
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoTrue
.Line.ForeColor.SchemeColor = 1
End With\]
Last edited by Jats; 09-30-2013 at 10:41 AM.
I'm not sure the .characters bit is needed, have you tried:
.OLEFormat.Object.Text = "Form complete!"
Hi, still doesn't work. I am using xlsb. do you think this maybe the reson. all my other macros are running fine in the file.
This worked for me:-
Please Login or Register to view this content.
It seemed to work on the example I tried. I'd guess maybe the issue is with the c variable. What is the value of application.caller, does activeshape(c) refer to something sensible?
Might be helpful if you could upload an example workbook.
Hi, i have tried it in .xls and it work fine but not in .xlsb. Is applicatio_caller not supported in .xlsb?
What error do you have? xlsb or xls should work the same. Perhaps you can provide a workbook?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks