No.4ベストアンサー
- 回答日時:
ふと、、スライドマスターのカスタムレイアウトのテキストを弄りたいと
言う事でしょうか?
Sub b()
With Application.ActivePresentation.SlideMaster.CustomLayouts(1)
.Shapes.Item(1).TextFrame.TextRange.Text = "TEST1"
.Shapes.Item(2).TextFrame.TextRange.Text = "TEST2"
End With
End Sub
レイアウト1ページ目に出力
(Item(1)、Item(2)、がどのオブジェクトを指しているかは、解りません。
Shape_Nameで出力した順番がインデックスです。上から1
名前が分かれば名前で指定した方が良いかと
No.5
- 回答日時:
>オブジェクト名をdebug.printで出力しても出てきませんでした。
なるほど、、
一応、しつこいようですがシェイプの名前とタイプを出力できるコードを
① スライドマスター
Sub SlideMaster_Shape_Name()
Dim shp
For Each shp In Application.ActivePresentation.SlideMaster.Shapes
Debug.Print shp.Name; "<=>Type = "; shp.Type
Next
End Sub
② カスタムレイアウト(インデックス1にあるシェイプ)
Sub CustomLay_Shape_Name()
Dim shp
For Each shp In Application.ActivePresentation.SlideMaster.CustomLayouts(1).Shapes
Debug.Print shp.Name; "<=>Type = "; shp.Type
Next
End Sub
③ 通常スライド(インデックス1にあるシェイプ)
Sub Slide_Shape_Name()
Dim shp
For Each shp In Application.ActivePresentation.Slides(1).Shapes
Debug.Print shp.Name; "<=>Type = "; shp.Type
Next
End Sub
画像で示してもらえると解る方が現れるかも、、
No.3
- 回答日時:
付け忘れました。
テストしたPPTのスライドマスターの場合
イミディエイトへの出力結果
Title Placeholder 1
Text Placeholder 2
Date Placeholder 3
Footer Placeholder 4
Slide Number Placeholder 5
TextBox 6
No.2
- 回答日時:
#1です。
ダメでしたか、、、テキストボックスとは何を指しているのでしょう?
テキストボックスのオブジェクト名は?
一応、試してみました 画像を貼っておきます。
テキストボックスはオブジェクトの指定方法を変えて名前で指定しています
ループと名前やタイプで特定して出力する方法もありかと思います。
オブジェクトがどのような名前になっているか調べる為
オブジェクト名取得プロシージャです。イミディエイトウィンドウに出力
Sub Shape_Name()
Dim shp
For Each shp In Application.ActivePresentation.SlideMaster.Shapes
Debug.Print shp.Name
Next
End Sub
Itemインデックスと名前で特定してテキストを書き込み(2つの方法)
(テキストボックスをスライドマスタにあらかじめ作成してください)
Sub a()
With Application.ActivePresentation.SlideMaster
.Shapes.Item(1).TextFrame.TextRange.Text = "TEST1"
.Shapes.Item(2).TextFrame.TextRange.Text = "TEST2"
.Shapes("TextBox 6").TextFrame.TextRange.Text = "テキストを変更"
End With
End Sub
TextBox 6 はイミディエイトウィンドウに出力されたオブジェクト名
オブジェクト名をdebug.printで出力しても出てきませんでした。
Shapesオブジェクトではない?
因みにAutoShape、Rectangele、Lineでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Google Drive Googleスライドについて 1 2023/05/01 00:11
- Word(ワード) PCで作ったwordをスマホで編集しようとすると「このファイルは読み取り専用です。」と表示される。 3 2023/05/30 14:51
- オープンソース googlスライドの編集権限について 1 2023/06/15 23:15
- Chrome(クローム) スプレッドシートの編集履歴について 以前は画像の○を付けたあたりに最終編集者と最終編集日が表示されて 1 2023/07/07 13:42
- Visual Basic(VBA) エクセルVBA エクセルを開いた後に編集可能な状態にするには? 2 2023/06/14 11:58
- gooブログ ブログの記事を書きだしのみに表示したい 1 2022/06/25 19:11
- その他(Microsoft Office) エクセル VBAについて 2 2022/09/21 22:21
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- PowerPoint(パワーポイント) パワーポイントのアニメーションについて 4 2023/06/14 16:25
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
パワーポイントのVBAでテキストボックスに値を変更させたいです
Visual Basic(VBA)
-
ExcelVBAにて既に開かれているPowerpointをアクティブにするには?
Excel(エクセル)
-
【VB.NET】 パワポ操作を非表示で
Visual Basic(VBA)
-
-
4
VBAでPowerPointからExcelにデータを抽出する
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
PowerpointVBAで指定のShapeオブジェクトを削除したい。
Visual Basic(VBA)
-
7
なぜマクロの記録がなくなってしまったのでしょうか?
Excel(エクセル)
-
8
パワーポイントのアドインのソースコード変更
PowerPoint(パワーポイント)
-
9
VBAで既存のパワポのファイルを開くには?
Access(アクセス)
-
10
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
11
ExcelのVBAで、選択したファイルが既に開かれているか確認したい
Excel(エクセル)
-
12
PowerPointでクリックしたオブジェクトを操作するには
Access(アクセス)
-
13
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
14
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
15
PPTのVBA スライド右下端の座標を取得する方法
その他(Microsoft Office)
-
16
VBA 図形グループ化後オブジェクト名取得
PowerPoint(パワーポイント)
-
17
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
18
エクセルVBAを使用し、指定のパワーポイントをPDF保存する方法
Excel(エクセル)
-
19
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
20
PowerPointの箇条書きの既定のリストを変更する方法について
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
テキストボックス中の文字列の...
-
ある文字列が全て数字であるか...
-
Excelでフィルタをかけると警告...
-
VBScriptでファイルの日時順(降...
-
VBAからPDFファイルにパスワー...
-
VBAで作成するメール(開封確認...
-
PowerPointVBAでスライドマスタ...
-
EXCEL VBA オートシェイプナン...
-
VBからExcelのセルの書式設定を...
-
VBAでWebページにセルの値を入力
-
VBA:オートシェイプの線の長...
-
VBAで Set wb = Sheets(1).Cop...
-
Shell.ApplicationのNameSpace...
-
VBAでオプションボタンの設定
-
エクセルVBAでFor each文
-
エクセルマクロエラー「'Cells'...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
PowerPointVBAでスライドマスタ...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAについてです。 初心者です...
-
VBScriptでファイルの日時順(降...
-
Excelでフィルタをかけると警告...
-
VBAからPDFファイルにパスワー...
-
VBで引数にDictionaryオブジェ...
-
このように書くべきですか? { ...
-
EXCEL VBA オートシェイプナン...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
おすすめ情報