毎日業務改善（パワポで、コピーしたときに、文字がやたら大きくなってしまう問題を解決するマクロ）
2013.12.14
SKIP
特許図面の作成には、パワポを使ったり、CADを使ったりしますが、パワポ内で文字のコピペをすると、文字が意図せずして大きくなってしまうことがあります(PowerPoint2003の場合)。
これは、スライドマスタのフォントがデフォルトで18ptになっていることが原因であり、以下のマクロを実行することによって、コピーをした際のフォントサイズを自由に変更できます。
手作業でも、スライドマスタを表示させてフォントサイズを変更できますが、ちょっと面倒です。
パワポで、コピーしたときに、文字がやたら大きくなってしまう問題を解決するマクロ。
文字が大きくなる原因は、スライドマスタのフォントが18ptなどの大きいものになっていることです。以下のマクロを実行すると、マスタのフォントが10ptになります。
Private Sub マスターの書式を変更_Click()
ActiveWindow.ViewType = ppViewSlideMaster
With ActivePresentation.SlideMaster.TextStyles.Item(Type:=ppDefaultStyle).Levels(Level:=1).Font
.NameAscii = “Arial”
.NameFarEast = “ＭＳ Ｐゴシック”
.Size = 10
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoTrue
.Color.SchemeColor = ppForeground
End With
ActiveWindow.ViewType = ppViewNormal
End Sub
