Macro adds line space (got answer from Steve R, but it seems cut o

gizela · Feb 25, 2005

Sorry for posting this again, but something must have happened to the answer
Steve R posted - it seems cut off half way through.

I'm recording a macro with two lines of text, 0p after paragraph. When I play
it, it has added 0.5p after paragraph, all by itself. ?

Bill Foley · Feb 25, 2005

The message response wasn't cut off. His response was, "Post the macro
here, please."

I think he wants to look at the actual code so he (we) can ascertain what
the problem is.

--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor - XP
www.pttinc.com
Check out PPT Fans at: http://www.rdpslides.com/pptfaq/
Check out Word Fans at: http://word.mvps.org/FAQs/General/index.htm

gizela · Feb 25, 2005

Cool. Here is macro.

ActiveWindow.Selection.SlideRange.Shapes.AddLabel(msoTextOrientationHorizontal, 18.375, 496.625, 14.25, 24).Select
ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoFalse
With ActiveWindow.Selection.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0.5
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "*" + Chr$(CharCode:=13) + "**"
With .Font
.Name = "Arial"
.Size = 14
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With
ActiveWindow.Selection.ShapeRange.IncrementTop -39.5
ActiveWindow.Selection.TextRange.ParagraphFormat.Alignment = ppAlignRight
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 9
ActiveWindow.Selection.ShapeRange.IncrementTop 0.5
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.75
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.75
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.75
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.75
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop -5.25
ActiveWindow.Selection.ShapeRange.IncrementTop -5.62
ActiveWindow.Selection.ShapeRange.IncrementTop -5.75
ActiveWindow.Selection.ShapeRange.IncrementTop -5.62
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.Unselect

ActiveWindow.Selection.SlideRange.Shapes.AddLabel(msoTextOrientationHorizontal, 109.125, 451.375, 14.25, 24).Select
ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoFalse
With ActiveWindow.Selection.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0.5
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "Fotnot 1" + Chr$(CharCode:=13) + "Fotnot 2"
With .Font
.Name = "Arial"
.Size = 14
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 9
With ActiveWindow.Selection.ShapeRange
.IncrementLeft -61#
.IncrementTop 46.38
End With
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop 0.5
ActiveWindow.Selection.ShapeRange.ScaleWidth 12.7, msoFalse,
msoScaleFromTopLeft
End Sub

"Bill Foley" skrev:

Bill Foley · Feb 25, 2005

Gotta love that recorder!

--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor - XP
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/

Steve Rindsberg said:
Cool. Here is macro.

Click to expand...

You're seeing space BEFORE, not after. Comment out both of the ..SpaceBefore lines
or set .SpaceBefore = [whatever value you want] and it'll work.

You might also want to delete all the bazillions of "IncrementTop" lines and
substitute one:

ActiveWindow.Selection.ShapeRange.Top = 489 ' change value to suit
ActiveWindow.Selection.SlideRange.Shapes.AddLabel(msoTextOrientationHorizont
al,
18.375, 496.625, 14.25, 24).Select

ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoFalse
With ActiveWindow.Selection.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0.5
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "*" + Chr$(CharCode:=13) + "**"
With .Font
.Name = "Arial"
.Size = 14
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With
ActiveWindow.Selection.ShapeRange.IncrementTop -39.5
ActiveWindow.Selection.TextRange.ParagraphFormat.Alignment = ppAlignRight
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 9
ActiveWindow.Selection.ShapeRange.IncrementTop 0.5
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.75
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.75
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.75
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.75
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop 5.62
ActiveWindow.Selection.ShapeRange.IncrementTop -5.25
ActiveWindow.Selection.ShapeRange.IncrementTop -5.62
ActiveWindow.Selection.ShapeRange.IncrementTop -5.75
ActiveWindow.Selection.ShapeRange.IncrementTop -5.62
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft 0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.Unselect

Click to expand...

ActiveWindow.Selection.SlideRange.Shapes.AddLabel(msoTextOrientationHorizont
al,
109.125, 451.375, 14.25, 24).Select

ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoFalse
With ActiveWindow.Selection.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0.5
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "Fotnot 1" + Chr$(CharCode:=13) + "Fotnot 2"
With .Font
.Name = "Arial"
.Size = 14
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 9
With ActiveWindow.Selection.ShapeRange
.IncrementLeft -61#
.IncrementTop 46.38
End With
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementLeft -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop -0.5
ActiveWindow.Selection.ShapeRange.IncrementTop 0.5
ActiveWindow.Selection.ShapeRange.ScaleWidth 12.7, msoFalse,
msoScaleFromTopLeft
End Sub

"Bill Foley" skrev:

Click to expand...

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Click to expand...

Line spacing too large in doc sent from Japan	2	Dec 19, 2012
Music cuts out on web page with constraints	5	Aug 27, 2006
Another dreaded "loop through the document" question	24	Jan 11, 2008
Need Help to Add to Macro	0	Jan 13, 2012
Weird shifting	2	Mar 4, 2010
Macro Print Range Problem - Rows Cut Off (Upgraded From Excel 2003 to2007)	1	Feb 3, 2009
Provide a line space for answers	1	Jan 6, 2004
Numbering, revisited	10	Apr 15, 2010

Macro adds line space (got answer from Steve R, but it seems cut o

gizela

Bill Foley

gizela

Bill Foley

Ask a Question

Similar Threads