VBA code to set two different font sizes in a textframe

Does this work Dale?
With ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange
..Text = "This is the text" & vbCrLf & "This is the other text"
..Lines(1).Font.Size = 36
..Lines(2).Font.Size = 18
End With
 >> Stay informed about: VBA code to set two different font sizes in a textframe 

On 11/23/09 10:57 AM, in article
6A847D01-8C77-4402-B76A-3DBE4D6FC17D.Remove.TakeThisOut@microsoft.com, "Dale Fye"
wrote:

> I'm using Access VBA to build a series of data driven slides, and want the
> Title in one of the slides to contain a line of text that has font.size = 36,
> and the font.size on the following like to 1.
>
> The code I'm using right now looks like:
> oShape.TextFrame.TextRange.Font.Size = 36
> oShape.TextFrame.TextRange = "First Line" & vbcrlf & "Second line"
>
> How can I modify this code to accomplish my goal?
>
> ----
> Dale
>

Off the top of my head, it would be something like:

OShape.TextFrame.TextRange.Paragraphs(2).Font.Size = 18
OShape.TextFrame.TextRange.Paragraphs(1).Font.Size = 36

I seem to recall that this can be a bit tricky in that sometimes changing
the last line affects other lines (which is why I did the last line first),
but I might be remembering.

--David
 >> Stay informed about: VBA code to set two different font sizes in a textframe 

Thanks, John.

Worked like a charm.

----
Dale



"John Wilson" wrote:

> Does this work Dale?
> With ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange
> .Text = "This is the text" & vbCrLf & "This is the other text"
> .Lines(1).Font.Size = 36
> .Lines(2).Font.Size = 18
> End With
> --
> john ATSIGN PPTAlchemy.co.uk
>
> Free PPT Hints, Tips and Tutorials
> [URL="http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html"]http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html[/URL]
>
>
>
>
>
>
> "Dale Fye" wrote:
>
> > I'm using Access VBA to build a series of data driven slides, and want the
> > Title in one of the slides to contain a line of text that has font.size = 36,
> > and the font.size on the following like to 1.
> >
> > The code I'm using right now looks like:
> > oShape.TextFrame.TextRange.Font.Size = 36
> > oShape.TextFrame.TextRange = "First Line" & vbcrlf & "Second line"
> >
> > How can I modify this code to accomplish my goal?
> >
> > ----
> > Dale
> >
 >> Stay informed about: VBA code to set two different font sizes in a textframe 

In article wrote:
> > I'm using Access VBA to build a series of data driven slides, and want th
> e
> > Title in one of the slides to contain a line of text that has font.size
> = 36,
> > and the font.size on the following like to 1.
> >
> > The code I'm using right now looks like:
> > oShape.TextFrame.TextRange.Font.Size = 36
> > oShape.TextFrame.TextRange = "First Line" & vbcrlf & "Second line"
> >
> > How can I modify this code to accomplish my goal?
> >
> > ----
> > Dale
>
> each textframe has only one fint.size property per rendering

That's technically correct but not relevant.

You can set the text font properties for a textframe.textrange to change all
of the text in the textframe, but you can also change the font properties of
each *character* in a text frame's text if you like.
 >> Stay informed about: VBA code to set two different font sizes in a textframe