【VBA】PowerPointでテキストボックスの文字の輪郭を設定する方法
どうも、プログラミングの鬼シヨツ鬼です。
今回は「PowerPointのマクロ機能使ってテキストボックスの文字の輪郭を自由自在に設定したいぜ」ってあなたに向けて、その方法をズバリ解説します。
どんなことを実現するか
テキストボックスを出現させて、文字の輪郭をゴリゴリに太くした文字を書きます。
ソースコード
Sub 太文字作成() Dim txt As Shape With ActivePresentation Dim char char = "お" Set txt = .Slides(1).Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=0, _ Top:=0, _ Width:=10, _ Height:=10) With txt .Name = "AddedTextBox" .TextFrame.TextRange = char .TextEffect.FontSize = 30 .TextFrame2.TextRange.Font.Line.Weight = 6 End With With txt.TextFrame.TextRange.Font .Name = "あおぞら明朝 Heavy" .NameFarEast = "あおぞら明朝 Heavy" End With End With End Sub
ソースコードのポイント
文字の輪郭を設定している部分は「.TextFrame2.TextRange.Font.Line.Weight = 6」の部分です。
「.TextFrame」ではなく「.TextFrame2」に設定するところがミソです。