Add to this macro

Another user provided this code for creating a text box with font size
8/Arial. However, it is putting in color and a border. Since the recorder
was removed, I can not figure out how to add in no color and outline of text
box in addition, I want the text color black.

I monkeyed with this a bit to get the size correct:

Sub RefTextBox()

Dim myBox As Shape
Set myBox = ActivePresentation.Slides(1).Shapes.AddShape(msoSh apeRectangle,
10, 10, 211, 15)
myBox.TextFrame.TextRange.Text = "hello" 'put hello in the box
myBox.TextFrame.TextRange.Font.Size = 8 'make the font size of the box 8

End Sub

Thanks for help you provide.

On 5/5/10 1:55 PM, Annette wrote:
Sub RefTextBox()

Dim myBox As Shape
Set myBox = ActivePresentation.Slides(1).Shapes.AddShape(msoSh apeRectangle,
10, 10, 211, 15)
myBox.TextFrame.TextRange.Text = "hello" 'put hello in the box
myBox.TextFrame.TextRange.Font.Size = 8 'make the font size of the box 8

End Sub

Perhaps adding these two lines:

myBox.Fill.Transparency = 1
myBox.Line.Transparency = 1


--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

Worked great and I even figured out how to add, make my text black in color
without further assistance!

Thanks again!


"David Marcovitz" wrote in message
...
On 5/5/10 1:55 PM, Annette wrote:
Sub RefTextBox()

Dim myBox As Shape
Set myBox =
ActivePresentation.Slides(1).Shapes.AddShape(msoSh apeRectangle,
10, 10, 211, 15)
myBox.TextFrame.TextRange.Text = "hello" 'put hello in the box
myBox.TextFrame.TextRange.Font.Size = 8 'make the font size of the box 8

End Sub

Perhaps adding these two lines:

myBox.Fill.Transparency = 1
myBox.Line.Transparency = 1


--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

Just a point your code is adding a rectangle shape not a textbox which is why
you have a fill and line. Probably (depends on the default set) a textbox
would not show the fill / line.

Sub addtxt()
Dim mytxtbox As Shape
Set mytxtbox = ActivePresentation.Slides(1).Shapes.AddTextbox _
(msoTextOrientationHorizontal, 10, 10, 211, 15)
With mytxtbox.TextFrame.TextRange
..Text = "Hello"
..Font.Size = 8
End With
End Sub
--
john ATSIGN PPTAlchemy.co.uk

Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html






"Annette" wrote:

Another user provided this code for creating a text box with font size
8/Arial. However, it is putting in color and a border. Since the recorder
was removed, I can not figure out how to add in no color and outline of text
box in addition, I want the text color black.

I monkeyed with this a bit to get the size correct:

Sub RefTextBox()

Dim myBox As Shape
Set myBox = ActivePresentation.Slides(1).Shapes.AddShape(msoSh apeRectangle,
10, 10, 211, 15)
myBox.TextFrame.TextRange.Text = "hello" 'put hello in the box
myBox.TextFrame.TextRange.Font.Size = 8 'make the font size of the box 8

End Sub

Thanks for help you provide.


.

That's great! And the second part is even better (that you were able to
figure out more on your own). Next thing you know you'll be answering
other people's questions here.
--David

On 5/5/10 6:23 PM, Annette wrote:
Worked great and I even figured out how to add, make my text black in color
without further assistance!

Thanks again!


"David wrote in message
...
On 5/5/10 1:55 PM, Annette wrote:
Sub RefTextBox()

Dim myBox As Shape
Set myBox =
ActivePresentation.Slides(1).Shapes.AddShape(msoSh apeRectangle,
10, 10, 211, 15)
myBox.TextFrame.TextRange.Text = "hello" 'put hello in the box
myBox.TextFrame.TextRange.Font.Size = 8 'make the font size of the box 8

End Sub

Perhaps adding these two lines:

myBox.Fill.Transparency = 1
myBox.Line.Transparency = 1


--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland




--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland