CODEWITHSUNDEEP
vbapowerpointms-access-2016
int64
int64

Reputation: 91

Align a text frame when creating a ppt from access vba

I'm trying to align a text frame when creating a ppt from access. Alignment control is available from excel vba but I'm struggling to find this in access.

Here is an example of the creation of a textbox in powerpoint from access vba. I have control of the font size and such but I cannot locate the alignment for the textbox.

' Program data
Dim tb_ProgramData As Shape
Set tb_ProgramData = pptCurrentSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=68.399, Top:=51.12, Width:=187.2, Height:=18.72)
tb_ProgramData.TextFrame.TextRange.Text = rs.Fields(27) + " Program: " + rs.Fields(29)
tb_ProgramData.TextFrame.TextRange.Font.Size = 9
tb_ProgramData.TextFrame.TextRange.Font.Bold = msoTrue

The only thing close is a paragraph alignment but it has no effect...

tb_Title.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter

Any help would be appreciated... regards,

Upvotes: 0

Views: 262

Answers (1)

int64
int64

Reputation: 91

Good grief.. I found it under the text effects.

tb_SystemClass.TextEffect.Alignment = msoTextEffectAlignmentRight

and if you wish to select the textbox from the list of shapes then...

pptCurrentSlide.Shapes.Range("tb_SystemClass").TextEffect.Alignment = msoTextEffectAlignmentRight

Upvotes: 0

Related Questions