Posted to microsoft.public.excel.programming
|
|
set color of textbox (shape) bullets
Hi,
Try this,
..TextFrame2.TextRange.ParagraphFormat.Bullet.Font .Fill.ForeColor.RGB = _
vbRed
Cheers
Andy
Pat D wrote:
yes, i'm using XL07.
the statement I execute is:
ActiveSheet.Shapes("TESTBOX").TextFrame2.TextRange .Formatparagraph.Bullet.Font.Color = 255
error message:
Run-time error '438': Object doesn't support this property or method
FYI: the following statements DO work:
Set the bullet character to ASCII(100)
ActiveSheet.Shapes("TESTBOX").TextFrame2.TextRange .ParagraphFormat.Bullet.Character = 100
Set the text color to 125 (brown-ish):
ActiveSheet.Shapes("TESTBOX").TextFrame.Characters .Font.Color = 125
"JLGWhiz" wrote:
I believe you are using xl2007, which I know very little about, but if you
could state the error message content, it would help to analyze the problem.
"Pat D" wrote:
tried that too, but doesn't do the trick either...
"JLGWhiz" wrote:
Shouldn't the color be defined in RGB
ActiveSheet.Shapes"TESTBOX").TextFrame2.TextRange _
.Format.Bullet.Font.Color = RGB(255, 0, 0)
"Pat D" wrote:
I want to change the color of bullets in a textbox (shape) in XL 2007, but
keep getting errors. this is what I have tried:
ActiveSheet.Shapes("TESTBOX").TextFrame2.Text Range.ParagraphFormat.Bullet.Font.Color = 255
similarly, when I try to change the font name, character, or other
attributes of the bullet, this works just fine.
--
Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
|