G
George
Hi
I have wrote a little program which adds
a new slide and then formatting a text
element on it (bold, yellow). This workes
fine in ppt 2003. But in ppt 2007 the
background of the text frame is now black,
the font *not* bold and the color of the
font ist black.
Can anybody help me (see the used code
below).
Many thanks for help
Best Regards, George
--------------------------------
With ActiveWindow.Selection.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With
With ActiveWindow.Selection.TextRange
.ParagraphFormat.Alignment = ppAlignLeft
With .Font
.Name = "Arial Narrow"
.Size = 25
.Bold = msoTrue
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
.Color.RGB = RGB(Red:=247, Green:=181, Blue:=18)
End With
End With
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.TextFrame.MarginLeft = 0#
.TextFrame.MarginRight = 0#
.TextFrame.MarginTop = 0#
.TextFrame.MarginBottom = 0#
End With
I have wrote a little program which adds
a new slide and then formatting a text
element on it (bold, yellow). This workes
fine in ppt 2003. But in ppt 2007 the
background of the text frame is now black,
the font *not* bold and the color of the
font ist black.
Can anybody help me (see the used code
below).
Many thanks for help
Best Regards, George
--------------------------------
With ActiveWindow.Selection.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With
With ActiveWindow.Selection.TextRange
.ParagraphFormat.Alignment = ppAlignLeft
With .Font
.Name = "Arial Narrow"
.Size = 25
.Bold = msoTrue
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
.Color.RGB = RGB(Red:=247, Green:=181, Blue:=18)
End With
End With
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.TextFrame.MarginLeft = 0#
.TextFrame.MarginRight = 0#
.TextFrame.MarginTop = 0#
.TextFrame.MarginBottom = 0#
End With