1

プレゼンテーションの最後にスライドを作成し、タイトル テキストを挿入する次のコード (PowerPoint 2010 の VBA) があります。

longSlideCount = ActivePresentation.Slides.Count

With ActivePresentation.Slides
    Set slideObject = .Add(longSlideCount + 1, ppLayoutTitleOnly)
End With

slideObject.Shapes.Title.TextFrame.TextRange.Text = "This is the Main Title Text"

次の方法を知りたいです。

  • 「サブタイトル」テキストを挿入します (小さいフォント、メイン タイトル テキストのすぐ下の新しい行に)
  • メインタイトルテキストとサブタイトルテキストのフォントとサイズを変更する

前もって感謝します！！！

4

1 に答える 1

1

スライドの外観に応じて、いくつかの方法で行うことができます。ppLayoutTitleの代わりにを使用するのが最も簡単かもしれませんppLayoutTitleOnly。1 つではなく 2 つのテキストフレームがあるため、次のようなものを使用してテキストを更新できます。

slideObject.Shapes(2).TextFrame.TextRange.Text = "This is the subtitle."

さらにカスタム レイアウトが必要な場合は、コード例の最後に次のコードを追加して、新しいテキスト ボックスを追加できます。

Set oShp = slideObject.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 300)
oShp.TextFrame.TextRange.Text = "Row #2: subtitle."

関数の数値パラメーターAddTextboxは、新しいテキスト ボックスの位置とサイズを設定します。

上記の両方の例で同じ方法でフォントを更新できます (テキスト ボックスへの参照を変更するだけです)。

oShp.TextFrame.TextRange.Font.Bold = msoTrue
于 2014-01-08T09:54:41.820 に答える