UINVDJM
asked on
Placing Title Textbox
Driving me mad...
I'm using this code to place a new title in a slide. Can not work out how to specify where it is placed or its size though...???
With PPSlide.Shapes
If .HasTitle Then
.Title.Delete
End If
With .AddTitle.TextFrame.TextRa
.Text = Cells(Row + 1, Column + 1).Value
.Font.Color.RGB = RGB(Red:=51, Green:=51, Blue:=153)
End With
End With
I'm using this code to place a new title in a slide. Can not work out how to specify where it is placed or its size though...???
With PPSlide.Shapes
If .HasTitle Then
.Title.Delete
End If
With .AddTitle.TextFrame.TextRa
.Text = Cells(Row + 1, Column + 1).Value
.Font.Color.RGB = RGB(Red:=51, Green:=51, Blue:=153)
End With
End With
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Glad to help! The .TextFrame has .marginXXXX properties as well to make it a little nicer, and the .textrange has .boundXXXX properties as well, but that last one doesn't seem to do much more than the .margins
Again, let me know if you need anything else (and adding it to this Q or one of the others would be fine with me)
Again, let me know if you need anything else (and adding it to this Q or one of the others would be fine with me)
ASKER
Thank you again!