Alignment in textboxes

C

Colleyville Alan

I have an app in which I insert textboxes onto a slide and input text. The
app that I am trying to automate has the text bulleted. I initially did not
include bullets, but have tries setting them manually to see how close the
look and feel is to the original.

On the original, a custom bullet has been set using a Wingdings character.
That I can do. But also, on the original, there is a spacing set of about 2
char between the bullet and the text. I cannot figure out yet how that
setting is achieved. I could fake it in code, so that is not my biggest
concern.

The thing that is biggest for me is alignment. The original app had the
text alining even when wrapping and I cannot seem to duplicate that. My
text goes all the way to the left and does not align. Here is an example of
what I mean:

o This is correct
Alignment

o This is the result
that I am getting

What setting controls this?
Thanks
Alan
 
S

Steve Rindsberg

Have a play with this:

Sub SetMargins()

With ActiveWindow.Selection.ShapeRange.TextFrame.Ruler.Levels(1)
.FirstMargin = 0
.LeftMargin = 36
End With

End Sub



I have an app in which I insert textboxes onto a slide and input text. The
app that I am trying to automate has the text bulleted. I initially did not
include bullets, but have tries setting them manually to see how close the
look and feel is to the original.

On the original, a custom bullet has been set using a Wingdings character.
That I can do. But also, on the original, there is a spacing set of about 2
char between the bullet and the text. I cannot figure out yet how that
setting is achieved. I could fake it in code, so that is not my biggest
concern.

The thing that is biggest for me is alignment. The original app had the
text alining even when wrapping and I cannot seem to duplicate that. My
text goes all the way to the left and does not align. Here is an example of
what I mean:

o This is correct
Alignment

o This is the result
that I am getting

What setting controls this?
Thanks
Alan

--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Featured Presenter, PowerPoint Live 2004
October 10-13, San Diego, CA www.PowerPointLive.com
================================================
 
C

Colleyville Alan

Steve Rindsberg said:
Have a play with this:

Sub SetMargins()

With ActiveWindow.Selection.ShapeRange.TextFrame.Ruler.Levels(1)
.FirstMargin = 0
.LeftMargin = 36
End With

End Sub

That works great. Thanks Steve, as always your advice is helpful.
Alan
 
B

Brian Reilly, MS MVP

Echo,
Steve is stealing my code. Oops I probably stole it from the Exel guys
and wormen. Not sure of source, but, almost guaranteed that I stole
it. Might even even be stolen from myselff. Will have to googe that,
eh Echo. (vbg)

Enjoy the code and what it does. We are around. Just ask for "Steve"
(vbg)

Brian Reilly, PowerPoint MVP
 
S

Steve Rindsberg

Steve is stealing my code.

Not *this* time. Can you believe it? I actually worked that out.
Shoulda stole it from you instead, but I couldn't remember where you forgot you
put it.


--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Featured Presenter, PowerPoint Live 2004
October 10-13, San Diego, CA www.PowerPointLive.com
================================================
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top