Works!

thanks bunches, Andy!!!

"Andy Pope" wrote:

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