Avatar of RGuillermo
RGuillermo
Flag for United States of America asked on

vb10 adding a label in excell

Hello Experts,
I got this sentence from a previous question.

the definition is accepted by vb10

Dim sh As Shape = objsheet.Shapes.AddLabel(msoTextOrientationHorizontal, 62.25, 97.5, 72, 72)

after that i need to change text, fonsize, fontcolor, move position.
How can I manipulate the object created lines above??

So far the following sentence is not accepted:
sh.textframe.characters.text = "AAAAAAA"

regards,
Visual Basic.NETMicrosoft Excel

Avatar of undefined
Last Comment
RGuillermo

8/22/2022 - Mon
dlmille

Your code works just fine, with slight modification.  What do you mean not accepted?

here's the modified code:
Sub test()
Dim sh As Shape
Dim objSheet As Worksheet

    Set objSheet = Sheet1
    Set sh = objSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 62.25, 97.5, 72, 72)
    sh.TextFrame.Characters.Text = "AAAAAAA"
End Sub

Open in new window

See attached demonstration.

Dave
testShape-r1.xls
ASKER CERTIFIED SOLUTION
dlmille

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
Nasir Razzaq

Do you get compile time errors? Or warnings?
RGuillermo

ASKER
Works Perfect! Thank you very much!!
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes