次の方法で共有

Document.UndoActionsAvailable プロパティ (Publisher)

  • [アーティクル]

[元に戻すスタックに使用可能なアクションの数を返します。 取得のみ可能な Long 値です。

構文

式。UndoActionsAvailable

式Document オブジェクトを表す変数。

戻り値

Long

例

次の使用例は、作業中の文書の 4 番目のページにテキスト ボックスを含む矩形を追加します。 次に、テキスト ボックスにフォントのプロパティと文字列を設定します。 その後、テキスト ボックス内のフォントが MS 明朝であるかどうかを判定します。 MS 明朝の場合は、 UndoActionsAvailable プロパティの値をパラメーターとして渡して Undo メソッドを使用し、それまでのすべての操作を元に戻すように指定します。

次に、 RedoActionsAvailable プロパティから 2 を引いた値をパラメーターとして渡して Redo メソッドを使用し、最後の 2 つの操作を除くすべての操作をやり直します。 さらに、テキスト ボックスに新しいフォントを指定し、文字列を追加します。

この例では、作業中の文書に少なくとも 4 つのページが含まれていることを前提としています。

Dim thePage As page 
Dim theShape As Shape 
Dim theDoc As Publisher.Document 
 
Set theDoc = ActiveDocument 
Set thePage = theDoc.Pages(4) 
 
With theDoc 
 With thePage 
 Set theShape = .Shapes.AddShape(msoShapeRectangle, _ 
 75, 75, 190, 30) 
 With theShape.TextFrame.TextRange 
 .Font.Size = 12 
 .Font.Name = "Courier" 
 .Text = "This font is Courier." 
 End With 
 End With 
 
 If thePage.Shapes(1).TextFrame.TextRange.Font.Name = "Courier" Then 
 .Undo (.UndoActionsAvailable) 
 .Redo (.RedoActionsAvailable - 2) 
 With theShape.TextFrame.TextRange 
 .Font.Name = "Verdana" 
 .Text = "This font is Verdana." 
 End With 
 End If 
End With

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。