dfinkels
09-17-2008, 06:15 AM
I have a simple macro that places a blue circle on a cell on my excel sheet.
I want to take the value of a cell, say E2, and place it on top of the circle, so you can see the value "in/on" the circle
I've written the following to create a text box with the value from cell E2 on top of the circle.
Sub Draw_Circle3()
Dim Diam As Single
Set myDocument = Worksheets(1)
Diam = Range("e2") 'pulls in volume from E2 in worksheet
myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 150, 175) _
.TextFrame.Characters.Text = Diam
End Sub
However, I cannot figure out to do the following: format the text box so it is transparent (I want to see circle behind it), no border, text is centered vertically and horizontally, font is bold, and font color is white.
Any ideas?
I want to take the value of a cell, say E2, and place it on top of the circle, so you can see the value "in/on" the circle
I've written the following to create a text box with the value from cell E2 on top of the circle.
Sub Draw_Circle3()
Dim Diam As Single
Set myDocument = Worksheets(1)
Diam = Range("e2") 'pulls in volume from E2 in worksheet
myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 150, 175) _
.TextFrame.Characters.Text = Diam
End Sub
However, I cannot figure out to do the following: format the text box so it is transparent (I want to see circle behind it), no border, text is centered vertically and horizontally, font is bold, and font color is white.
Any ideas?