0

マクロを使用して、Powerpoint 2007 で設定されたテキスト、フォント タイプ、フォント サイズ、フォントの色、および太字と斜体の機能を使用して、アクティブなスライドにカスタム テキスト ボックスを作成する必要があります。

私は現在このコードを使用しています：

Sub InsertTextBox()
Set myDocument = ActivePresentation.Slides(1)
Set newTextBox = myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    100, Top:=100, Width:=541.44, Height:=43.218)
    With newTextBox.TextFrame.TextRange
        .Text = "Slide Title"
        .Font.Size = 24
        .Font.Name = "Arial"
        .Font.Colour = RGB(107, 107, 107)  
End With
End Sub

このプロパティがオブジェクトに関連付けられていないことを示す .Font.Colour で例外をスローします。また、太字と斜体の機能を組み込む必要があります..Plzはこれについて私を助けてくれます

4

2 に答える 2

0

範囲で Find を使用して、テキスト範囲内の文字列を検索し、見つかったテキストだけで構成される新しいテキスト範囲を返すことができます。

With newTextBox.TextFrame.TextRange
    With .Find("Slide Title")
        .Font.Bold = True
    End With
End With

実際には、Instr を使用して、探しているテキストが実際にテキスト ボックスにあることを確認します。

于 2014-01-27T16:05:27.140 に答える