InsertBefore メソッド

InsertBefore メソッド

指定されたテキスト範囲の先頭に文字列を追加します。追加するテキストを表す TextRange オブジェクトを返します。引数を指定しないでこのメソッドを使用する場合、指定した範囲の終わりには長さ 0 の文字列 ("") が返されます。

expression**.InsertBefore(NewText)**

*expression *  必ず指定します。TextRange オブジェクトを返すオブジェクト式を指定します。

NewText  省略可能です。文字列型 (String) の値を指定します。追加するテキストを指定します。既定値は長さ 0 の文字列です。

使用例

次の使用例は、作業中のプレゼンテーションのスライド 1 のタイトルの先頭に文字列 "試用版 :" を追加します。スライド 1 は白紙のレイアウト以外を指定していると仮定します。

With Application.ActivePresentation.Slides(1).Shapes(1)
    .TextFrame.TextRange.InsertBefore "試用版 : "
End With
		

次の使用例は、クリップボードの内容を作業中のプレゼンテーションのスライド 1 のタイトルの先頭に追加します。

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame _
    .TextRange.InsertBefore.Paste