web-dev-qa-db-ja.com

PowerPoint：すべての空白のテキストボックスを一度に削除するにはどうすればよいですか？

特定のpptファイルには何も入っていないテキストボックスがたくさんあります。空白のテキストボックスを一度にすべて削除するにはどうすればよいですか？

また、これらの空白のテキストボックスは、ファイルの1ページだけではありません。

microsoft-officemicrosoft-powerpoint
4
guo

PowerPointの空のテキストボックスのみを削除する直接的な方法はありませんが、代わりにマクロを使用できます。

  1. PowerPointプレゼンテーションを開き、Alt + F11を押します。 VBAウィンドウが表示されます。
  2. 挿入->モジュール
  3. 以下のコードをコピーして貼り付けます。

サブRemoveTextboxes（）

スライドとして薄暗いSlideToCheck

Dim ShapeIndex As Integer

ActivePresentation.SlidesのSlideToCheckごとに

ShapeIndex = SlideToCheck.Shapes.Count To 1 Step-1の場合

  If SlideToCheck.Shapes(ShapeIndex).Type = msoTextBox And _
  Not SlideToCheck.Shapes(ShapeIndex).TextFrame.HasText Then

SlideToCheck.Shapes（ShapeIndex）.Delete

End If

次

次

エンドサブ

  1. PowerPointに戻り、[開発者]タブに移動し（下の[開発者]タブをアクティブにします）、[マクロ]を押し、[RemoveTextboxes（）]を選択して、[実行]をクリックします。

  2. 完了！これにより、PowerPointプレゼンテーションからすべての空のテキストボックスが削除されます。

開発者タブを表示する方法

  1. [ファイル]-> [オプション]-> [リボンのカスタマイズ]-> [メインタブ]のリストで、[開発者]ボックスをオンにします。完了！
2
User552853

アクション\削除するアイテムを選択します。これは、エーテルCTRL-Aを使用して実行するか、マウスを使用して四角いボックス内のアイテムを選択できます（左ボタンを押したままにします）。次にDELをパンチします

2
gatorback