I have the below vba code to insert bullets with customize formats and alignment. Now I am looking forward to the incorporate the following below mentioned actions in the code .
Please note that slide contains 2 text placeholder one for the Title and other for text
1. Reposition my text placeholder having (Top=75, Left=90,Width=739 and Height may vary depending on text.To have more clarity for the position of text placeholder I have appended below the image of shape dimensions from Microsoft power point 2016.
2. the text inside the placeholder should be calibri , size 12 & color (R=89,G=89,B=89)
For the size and margins to be freezed I am attaching an image for better clarity.
I need to collate this action with the below mentioned codes to have alignment of text and bullets
Dim pghcnt As Integer
.ParagraphFormat.bullet.Font.Name = "Wingdings"
.ParagraphFormat.bullet.Character = 167
.ParagraphFormat.Alignment = ppAlignJustify
.ParagraphFormat.bullet.Font.Color = RGB(89, 89, 89)
.ParagraphFormat.bullet.RelativeSize = 0.75
For pghcnt = 1 To Windows(1).Selection.TextRange.Paragraphs.Count
Windows(1).Selection.TextRange.Paragraphs(pghcnt).IndentLevel = 1
.Levels(1).FirstMargin = 7
.Levels(1).LeftMargin = 20
Further the layout contains title and content placeholder.
Please help me to collate the text part as well.
Thanks in advance