Powerpointファイルを開いて、
ホーム-配置-オブジェクトの選択と表示 でスライドのShapeオブジェクト一覧が表示されます。(添付画像参照)。このスライドから黄色い蛍光ペンで塗った、”コンテンツプレースホルダー2”の
Shapeオブジェクトを削除しようとして、下記のPowerpointVBAを実行しましたが、何も削除されません。コードをどう直せば動きますか? わかる方教えてください。
--<start of code>----
Sub delete()
Dim s As Shape 'sはshapeオブジェクトを入れる変数
Dim c As Collection 'cはコレクション
Dim start_slide As Integer 'start_slideはスライド番号1を入れる定数
Dim i As Integer 'iはスライド番号を入れる変数
start_slide = 1
For i = start_slide To ActivePresentation.Slides.Count
'If i = 254 Then
' GoTo continue
'End If
Set c = New Collection
For Each s In ActivePresentation.Slides(i).Shapes '変数sにアクティブスライド番号のすべてのshapeオブジェクトを入れる。
c.Add s
Next
For Each s In c
If InStr(s.Title, "コンテンツ") > 0 Then s.delete '★ここが重要!
Next
'continue:
Next
'MsgBox "the process is finished."
End Sub
--<end of code>----
No.2ベストアンサー
- 回答日時:
>If InStr(s.Title, "コンテンツ") > 0 Then s.delete '★ここが重要!
の「Title」を「Name」にするとどうでしょうか。
If InStr(s.Name, "コンテンツ") > 0 Then s.delete '★ここが重要!
If InStr(s.Name, "コンテンツ") > 0 Then s.delete '★ここが重要!
でうまく行きました。ありがとうございます。
No.1
- 回答日時:
>”コンテンツプレースホルダー2”のShapeオブジェクトを削除しようとして
>For Each s In ActivePresentation.Slides(i).Shapes '変数sにアクティブスライド番号のすべてのshapeオブジェクトを入れる。
>If InStr(s.Title, "コンテンツ") > 0 Then s.delete '★ここが重要!
全角表示を取得する方法は不明ですけど、とりあえずプレスホルダー名を取得しその結果としては。
Dim sl As Slide
Dim sh As Shape
For Each sl In ActivePresentation.Slides
For Each sh In sl.Shapes.Placeholders
Debug.Print sh.Name, ": " & InStr(sh.Name, "Placeholder 2")
Next
Next
結果:
Title 1 : 0
Subtitle 2 : 0
Title 1 : 0
Content Placeholder 2 : 9
Content Placeholder 3 : 0
みたいになりますね。
多分コントロール名だと思いますけど、半角文字が使われているようです。
と、ほぼPowerPointを使わないのでその先は良くわかりません。
WordVBAやっている方ならいけるんじゃないのかな?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
PowerPointVBAでスライドマスター上での編集
PowerPoint(パワーポイント)
-
ExcelのVBAで、選択したファイルが既に開かれているか確認したい
Excel(エクセル)
-
パワーポイントのVBAでテキストボックスに値を変更させたいです
Visual Basic(VBA)
-
-
4
ExcelVBAにて既に開かれているPowerpointをアクティブにするには?
Excel(エクセル)
-
5
ExcelからPowerPointへ画像を貼り付ける作業を簡素化
Excel(エクセル)
-
6
【VB.NET】 パワポ操作を非表示で
Visual Basic(VBA)
-
7
なぜマクロの記録がなくなってしまったのでしょうか?
Excel(エクセル)
-
8
VBAで選択範囲外の図形(オブジェクト)の消去は出来ますでしょうか? 印刷範囲外のオブジェクトを消し
Visual Basic(VBA)
-
9
VBAで既存のパワポのファイルを開くには?
Access(アクセス)
-
10
【PowerPoint VBAの高速化】
その他(プログラミング・Web制作)
-
11
PPTのコマンドボタンがクリックできません
その他(Microsoft Office)
-
12
PowerPoint VBA で画像の鮮明度を変更する方法がわかりません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスVBAのMe!と[ ]
-
VBA エンターキーでイベントに...
-
【エクセルのマクロ】クリップ...
-
エクセルVBAでセル番地を指定し...
-
PowerpointVBAで指定のShapeオ...
-
Excelでの図形の描画
-
Excel VBAでマウスの左クリック...
-
アクセスで説明の欄の隠しオブ...
-
現在アクティブになっているオ...
-
VBでExcelの表形式の様なデザイ...
-
Imageコントロールにグラフを表...
-
日本語の文字化けを直す方法
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
Excelシート上のマクロを登録し...
-
EXCEL VBA マクロ 実行する度に...
-
switch の範囲指定
-
【Excel】特定の文字を含むセル...
-
CloseとDisposeの違い
-
VBAでループ内で使う変数名を可...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスVBAのMe!と[ ]
-
VBA エンターキーでイベントに...
-
Excel VBAでマウスの左クリック...
-
文字列で小数点以下の0を削除し...
-
【エクセルのマクロ】クリップ...
-
エクセルVBAでセル番地を指定し...
-
Excel2007 でのチェックボック...
-
Accessのフォーム上にエクセル...
-
日本語の文字化けを直す方法
-
エクセルのデータをwebフォーム...
-
現在アクティブになっているオ...
-
PowerpointVBAで指定のShapeオ...
-
コードでオブジェクトを最前面に
-
【エクセル】複数のTextBoxに共...
-
Imageコントロールにグラフを表...
-
ユーザーフォームのインポート...
-
Access からオブジェクトとして...
-
構造体の静的な初期化
-
Excel VBA でPictureBoxオブジ...
-
「SHDocVw」の意味
おすすめ情報