PPT列印省紙法及改變ppt背景

1. 開啟ppt，將即將列印的部分編輯好，再 另存新檔—>檔案格式請選擇windows 圖元檔案，儲存好即可！

2.開啟word，使用word的宏，編輯這些圖片的宏代碼：
（1）    點擊“工具”—>“宏”—>“宏”
（2）    其一個自己容易記住的名字，建立一個新宏
（3）    請把下面的內容複寫到裡面，然後儲存（可直接點關閉）

Dim i As Integer

For i = 1 To ActiveDocument.InlineShapes.Count

    ActiveDocument.InlineShapes(i).Height = 170 * 1.1

    ActiveDocument.InlineShapes(i).Width = 225 * 1.2

Next i
然後建立word檔案，進行版面設定，如：

（1）

（2）

（3）匯入檔案

    點擊“插入”——“圖片”——“檔案”，選擇剛儲存的圖元檔案。  注意順序，最好就是先點第一張，然後ctrl+a  “開啟”

（4）轉化

點擊“工具”—>“宏”—>“宏”，找到你剛才儲存的宏檔案，點擊“運行”

儲存即可。

更具體的宏代碼：

Sub PPT()Dim i As IntegerFor i = 1 To ActiveDocument.InlineShapes.Count    ActiveDocument.InlineShapes(i).Height = 170 * 1.1    ActiveDocument.InlineShapes(i).Width = 225 * 1.2Next iEnd SubSub ppt加邊框()With ActiveDocument.Styles(wdStyleNormal).Font        If .NameFarEast = .NameAscii Then            .NameAscii = ""        End If        .NameFarEast = ""    End With    With ActiveDocument.PageSetup        .LineNumbering.Active = False        .Orientation = wdOrientPortrait        .TopMargin = CentimetersToPoints(1.6)        .BottomMargin = CentimetersToPoints(0.9)        .LeftMargin = CentimetersToPoints(1.4)        .RightMargin = CentimetersToPoints(1)        .Gutter = CentimetersToPoints(0)        .HeaderDistance = CentimetersToPoints(0.5)        .FooterDistance = CentimetersToPoints(0.9)        .PageWidth = CentimetersToPoints(21)        .PageHeight = CentimetersToPoints(29.7)        .FirstPageTray = wdPrinterDefaultBin        .OtherPagesTray = wdPrinterDefaultBin        .SectionStart = wdSectionNewPage        .OddAndEvenPagesHeaderFooter = False        .DifferentFirstPageHeaderFooter = False        .VerticalAlignment = wdAlignVerticalTop        .SuppressEndnotes = False        .MirrorMargins = False        .TwoPagesOnOne = False        .BookFoldPrinting = False        .BookFoldRevPrinting = False        .BookFoldPrintingSheets = 1        .GutterPos = wdGutterPosLeft        .LayoutMode = wdLayoutModeLineGrid    End With'【加頁碼，頁尾置中處】        Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _        wdAlignPageNumberCenter, FirstPage:=True    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then        ActiveWindow.Panes(2).Close    End If    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _        ActivePane.View.Type = wdOutlineView Then        ActiveWindow.ActivePane.View.Type = wdPrintView    End If    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader    If Selection.HeaderFooter.IsHeader = True Then        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter    Else        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader    End If    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _        ActivePane.View.Type = wdOutlineView Then        If ActiveWindow.Panes.Count = 2 Then            ActiveWindow.Panes(2).Close        End If        ActiveWindow.View.SplitSpecial = wdPaneCurrentPageHeader    Else        ActiveWindow.View.SeekView = wdSeekCurrentPageHeader    End If    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument    ActiveWindow.ActivePane.VerticalPercentScrolled = 0    '【調整每張投影片的大小為高184寬262，也許還有更佳的值，可自己嘗試】        Dim i As Integer    For i = 1 To ActiveDocument.InlineShapes.Count        ActiveDocument.InlineShapes(i).Height = 184        ActiveDocument.InlineShapes(i).Width = 262    Next i    '【給每張投影片加邊框，感覺沒有邊框很難看】        Selection.HomeKey Unit:=wdStory        Dim j As Integer    For j = 1 To ActiveDocument.InlineShapes.Count           Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend    With Selection.InlineShapes(1)        With .Borders(wdBorderLeft)            .LineStyle = wdLineStyleSingle            .LineWidth = wdLineWidth050pt            .Color = wdColorAutomatic        End With        With .Borders(wdBorderRight)            .LineStyle = wdLineStyleSingle            .LineWidth = wdLineWidth050pt            .Color = wdColorAutomatic        End With        With .Borders(wdBorderTop)            .LineStyle = wdLineStyleSingle            .LineWidth = wdLineWidth050pt            .Color = wdColorAutomatic        End With        With .Borders(wdBorderBottom)            .LineStyle = wdLineStyleSingle            .LineWidth = wdLineWidth050pt            .Color = wdColorAutomatic        End With        .Borders.Shadow = False    End With    With Options        .DefaultBorderLineStyle = wdLineStyleSingle        .DefaultBorderLineWidth = wdLineWidth050pt        .DefaultBorderColor = wdColorAutomatic    End With            Selection.MoveRight Unit:=wdCharacter, Count:=1    Next jEnd Sub

改變ppt背景方法：

改為黑白背景便於列印：

視圖 － 母片 － 投影片母片 － 將舊的母片全刪掉，建立新i空白母片，背景就會變白。