[打印9页PPT于一张A4上打印PPT前的相关设置.docVIP

PPT批量修改文字为黑色的宏命令。 把蓝色底的文字copy到新建的宏中。 Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes Set oTxtRange = oShape.TextFrame.TextRange If Not IsNull(oTxtRange) Then With oTxtRange.Font .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) End With End If Next Next ——————————————分割线———————————————————————————————— 如何设置9页PPT于一张A4纸上？第一种方法 1. 打开ppt，将即将打印的部分编辑好，再 另存为—文件格式请选择windows?图元文件，保存好即可！使用word的宏，编辑这些图片的宏代码：（1）????点击“工具”—“宏”—“宏”（2）????一个自己容易记住的名字，创建一个新宏（3）????请把下面内容复制到里面，然后保存 新建的宏名字 宏 Dim i As Integer For i = 1 To ActiveDocument.InlineShapes.Count With ActiveDocument.InlineShapes(i) .Height = 210 * 0.85 .Width = 297 * 0.9 .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderBottom).LineWidth = wdLineWidth050pt .Borders(wdBorderBottom).Color = wdColorAutomatic .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineWidth = wdLineWidth050pt .Borders(wdBorderRight).Color = wdColorAutomatic End With Next i End Sub 弄出来的效果如下图： ————————————————————分割线——————————————————————— （用一种宏命令就可以了。。。。。。以下两种宏命令自己可以另外试试。） 第二种宏命令： Dim i As Integer For i = 1 To ActiveDocument.InlineShapes.Count With ActiveDocument.InlineShapes(i) .Height = 238 * 0.7 .Width = 315 * 0.8 .Borders(wdBorderTop).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineWidth = wdLineWidth050pt .Borders(wdBorderTop).Color = wdColorAutomatic End With Next i 这个宏命令弄出来的最终图形如下图： —————————————————————分割线——————————————————————— 第三种宏命令： Sub 三栏() 三栏 宏 Dim i As Integer For i = 1 To ActiveDocument.InlineShapes.Count With ActiveDocument.InlineShapes(i) .Height = 238 * 0.75 .Width = 315 * 0.82 .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBor