Start Free Trial

asked on 5/24/2012

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.NET Microsoft Excel

Last Comment

5/30/2012

5/24/2012

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

5/24/2012

Blurred text

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

5/25/2012

Do you get compile time errors? Or warnings?

5/30/2012

ASKER

Works Perfect! Thank you very much!!

Microsoft Excel

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

144K

Questions

--

Followers

--

Top Experts

Get a personalized solution from industry experts

Ask the experts

"Invaluable tool for our organization"
Josh Regalski
"This is the best money I have ever spent."
@rwheeler23
"Your help has saved me hundreds of hours of internet surfing."
@fblack61
"Just a dang good service!"
@golferski
"Worth every penny."
Steve Hougom
"It’s been a life saver."
Maria Halt
"Best support site I’ve seen!"
Bob Schneider
"I would be lost without them."
@fblack61
"Saved my job multiple times."
Walt Forbes
"I love this site."
Maria Duwe
"Friendly respectful help."
Andrew Kowtalo
"Such top-notch experts."
@magento
"The best money I have ever spent."
@rwheeler23
"Beyond any comprehensible value"
George Morris
"Invaluable tool for our organization"
Josh Regalski
"This is the best money I have ever spent."
@rwheeler23

Read over 600 more reviews

TRUSTED BY