No.2ベストアンサー
- 回答日時:
こんばんは、
テキストボックスには、名前があり ホームタグの選択>>オブジェクトの選択と表示から確認できます。
単純にスライド1のテキストボックス名 テキスト ボックス 1への入力は
ActivePresentation.Slides(1).Shapes("テキスト ボックス 1").TextFrame.TextRange.Text = "テスト入力"
で入力可能と思います。
すべてのスライドに対してShapesを探す場合(オブジェクト名で)
Dim i As Integer 'iはスライド番号を入れる変数
For i = 1 To ActivePresentation.Slides.Count
For Each s In ActivePresentation.Slides(i).Shapes '変数sにアクティブスライド番号のすべてのshapeオブジェクトを巡回して入れる。
'メイン処理
'色々考えられますが、例えば If やSelect Caseなどで
Select Case s.Name
Case "テキスト ボックス 1"
s.TextFrame.TextRange.Text = "テスト入力"
Case "テキスト ボックス 2"
s.TextFrame.TextRange.Text = "テスト入力2"
Case "テキスト ボックス 3"
s.TextFrame.TextRange.Text = "テスト入力3"
End Select
Next
Next
また、Shapesインデックスでも同様に処理が出来ると思います。
ご質問の場合、すでに入力されているテキストが明示されているので
それをキーにする場合、こんな感じで実行できるかと思いますが、
条件設定などの改修は必須になると思います。
Dim s As Shape 'sはshapeオブジェクトを入れる変数
Dim i As Integer 'iはスライド番号を入れる変数
On Error Resume Next 'すべてのオブジェクトに対してなのでエラー対策
For i = 1 To ActivePresentation.Slides.Count
For Each s In ActivePresentation.Slides(i).Shapes
Select Case s.TextFrame.TextRange.Text
Case "AAA"
If i = 1 Then s.TextFrame.TextRange.Text = "XXX"
If i = 2 Then s.TextFrame.TextRange.Text = "999"
Case "BBB"
s.TextFrame.TextRange.Text = "YYY"
Case "CCC"
s.TextFrame.TextRange.Text = "ZZZ"
End Select
Next
Next
注意:テキストボックスですね。
テキストボックス、オートシェイプなどの場合なら良いのですが、
スマートアートなどの場合書き方が変わります。
ご丁寧に教えていただきありがとうございました!
やりたいことはできました。
教えていただいた条件設定などを修正してみて、
条件処理もやってみます。
No.3
- 回答日時:
なるほど初級者には勉強になります。
初級者なので考えすぎてしまい、てっきりテキスト形式のファイルなどに変換前と後の語句を書いておいて実行する際にはそれを基に色々と書き直すのかな?なんて
余計な事を考えてしまいました。
例えば『人名』『商品名』などと言った感じで。
やっぱ初級レベルではダメですねぇ。
オブジェクトの名前からってのも追加・削除によりどう変わるかへの対応が上手く書けなかったのですが、このようにすれば良かったのかぁ。
No.1
- 回答日時:
何をもって置換前後の値を決めるのか?
スライド毎に『同じテキスト文字であれば、同じ文字列に置換する』ならまだ楽なように思います。(初級者的には)
ただスライドによって違うならそのルールはどうなっているのでしょうか?
単にこの程度の個数ではないのですよね?
パワポVBAは経験皆無ですけどね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- Visual Basic(VBA) エクセルから、パワーポイントのスライドを複数作成する。 1 2022/07/08 09:40
- Windows 10 バッチファイルの記述法とルールについてアドバイスをお願いいたします。 1 2022/04/13 10:50
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
- Visual Basic(VBA) Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。 3 2023/03/19 18:31
- PowerPoint(パワーポイント) パワーポイントのアニメーションについて 4 2023/06/14 16:25
- JavaScript JavaScript|特定URLだった時、特定の要素を変更するコードの書き方を教えてほしいです 2 2023/08/25 21:43
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- その他(Microsoft Office) パワーポイントやワード、エクセルでのスライドショーやテキストの微調整について 1 2023/01/12 05:50
- その他(データベース) カラム上の重複を削除するクエリを教えてください 3 2022/04/12 14:11
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
PPTのコマンドボタンがクリックできません
その他(Microsoft Office)
-
ExcelVBAにて既に開かれているPowerpointをアクティブにするには?
Excel(エクセル)
-
PowerPointVBAでスライドマスター上での編集
PowerPoint(パワーポイント)
-
-
4
【VB.NET】 パワポ操作を非表示で
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
【パワーポイント】「ファイルを開いたら」vbaの実行したい
PowerPoint(パワーポイント)
-
7
なぜマクロの記録がなくなってしまったのでしょうか?
Excel(エクセル)
-
8
エクセルマクロにてパワーポイントのリンク更新をさせたい
Excel(エクセル)
-
9
パワーポイント filedialogでフォルダ名
PowerPoint(パワーポイント)
-
10
ExcelのVBAで、選択したファイルが既に開かれているか確認したい
Excel(エクセル)
-
11
PowerPointで時計表示
Visual Basic(VBA)
-
12
パワーポイントの置き換えマクロ
PowerPoint(パワーポイント)
-
13
VBAでテキストボックス内の編集をする方法
Visual Basic(VBA)
-
14
powerpointマクロでJPEG画像サイズを変更したい
Visual Basic(VBA)
-
15
Powerpointでランダムな数字の結果を表示するマクロ
Visual Basic(VBA)
-
16
PowerPointでクリックしたオブジェクトを操作するには
Access(アクセス)
-
17
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
18
PowerPoint の VBA
Visual Basic(VBA)
-
19
複数のパワーポイントファイルに対して指定した文字を置換する方法
Visual Basic(VBA)
-
20
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C#でフォームのオブジェクト名...
-
質問すいません。 javascriptの...
-
パワーポイントのVBAでテキスト...
-
JAVAからHTMLへ値を返す方法
-
EXCEL VBAにて動的にCheckBOXを...
-
error C2712: オブジェクト ア...
-
VBAのWindowオブジェクトとWork...
-
Excelで =EMBED("Acrobat Docu...
-
JqueryとPrototypeの比較
-
Object型からDouble型へのキャスト
-
VBAでvlookup関数から、別シー...
-
[Javascript]テキストボックス...
-
COMコンポーネントって何?
-
.getElementById()のエラーにつ...
-
Java認定試験3級の問題です。 ...
-
VBAからノーツを起動
-
Webアプリケーションのエラーメ...
-
戻り値がクラスオブジェクト
-
ワードで画像をドロップすると...
-
ワイルドカード<?>と型パラメー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワーポイントのVBAでテキスト...
-
Excelで =EMBED("Acrobat Docu...
-
JAVAからHTMLへ値を返す方法
-
ワイルドカード<?>と型パラメー...
-
C#でフォームのオブジェクト名...
-
VBAのWindowオブジェクトとWork...
-
EXCEL VBAにて動的にCheckBOXを...
-
VBA 同じ名前のオブジェクトを...
-
Object型からDouble型へのキャスト
-
ビジュアルC++でボタンの有...
-
COMコンポーネントって何?
-
LISTBOXの内容が更新されま...
-
Vbで通常使用するプリンターを...
-
多人数のじゃんけんプログラム
-
オブジェクト名をforループ内で...
-
ASP.net 教えてください!!(...
-
JSPのout.printについて
-
時間帯判定をする。
-
error C2712: オブジェクト ア...
-
Accessの連結・非連結オブジェ...
おすすめ情報