パワーポイントのスライドに、日次毎の表題を複数シート作成したいと思っています。
エクセルシートに、PPT用データ1列と、PPT用データ2列があり、このデータを
パワーポイントに展開して、スライドを作成するのですが、
以下のマクロですと、青色の背景と、白色の文字になってしまいます。
白い背景と、黒の文字で、字体を変えて、字の大きさも大きくしたいのですが、
どう追加するのが良いでしょうか?
Sub PowerPointのスライドを複製する()
Dim ppApp As New PowerPoint.Application
ppApp.Visible = True
Dim ppPrs As PowerPoint.Presentation
Set ppPrs = ppApp.Presentations.Open(ThisWorkbook.Path & "\パワポ.pptm")
Dim countSld As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("リストフォルダ名設定")
Dim i As Long
i = 2
Do While ws.Cells(i, 14).Value <> ""
countSld = ppPrs.Slides.Count '現在のスライド数をカウント
ppPrs.Slides(countSld).Duplicate '最終ページを複製
ppPrs.Slides(countSld + 1).Shapes.AddShape(msoShapeRectangle, 70, 70, 800, 400).TextFrame.TextRange.Text = ws.Cells(i, 14).Value & vbCrLf & ws.Cells(i, 15).Value
i = i + 1
Loop
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
>白い背景と、黒の文字で、字体を変えて、字の大きさも大きくしたいのですが、どう追加するのが良いでしょうか?
例
Do While ws.Cells(i, 14).Value <> ""
countSld = ppPrs.Slides.Count '現在のスライド数をカウント
ppPrs.Slides(countSld).Duplicate '最終ページを複製
With ppPrs.Slides(countSld + 1).Shapes.AddShape(msoShapeRectangle, 70, 70, 800, 400)
.Fill.ForeColor.RGB = RGB(255, 255, 255) '色
.TextFrame.TextRange.Text = ws.Cells(i, 14).Value & vbCrLf & ws.Cells(i, 15).Value
With .TextFrame.TextRange.Font 'フォント
.Size = 48 'サイズ
.Name = "Meiryo UI"
.Bold = True
.Color.RGB = RGB(0, 0, 0) '黒色
End With
End With
i = i + 1
Loop
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
キャッシュとバッファの違いは?
-
Access 外部データ インポー...
-
アクセスVBAからエクセルの操作
-
エクセルを取引先に渡したら何...
-
SQL Server にファイルを登録、...
-
電話番号から住所、名称(法人...
-
LVMでHDDが壊れた時の対応
-
Thunderbirdのインポートの処理...
-
C#でint型をIntPtr型に変換した...
-
テクトロニクスのオシロスコー...
-
アプリケーションのライセンス...
-
型 varchar から型 numeric へ...
-
コンピュータ用語、データベー...
-
データベースソフトのTCARDにつ...
-
アクセスの日付/時刻型で標準...
-
listener.logが肥大化
-
リスト形式の表とデータベース...
-
CDの売上枚数を知りたいのですが
-
accessの勉強ができるサイトは?
-
ODBCを使わないでExcelへ連携
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
キャッシュとバッファの違いは?
-
VB.netのADOってなんですか?
-
Thunderbirdのインポートの処理...
-
SQL Server にファイルを登録、...
-
エクセルから、パワーポイント...
-
スタライズとは、どういう意味...
-
値がこの列の整合性制約に違反...
-
UNIX時間をEXCEL上で日付・時間...
-
Access 外部データ インポー...
-
CSVファイルの重複チェック
-
LVMでHDDが壊れた時の対応
-
C#でint型をIntPtr型に変換した...
-
EXCELの最大データ数
-
エクセルでのテプララベル作成
-
Perlで、「が」を、「...
-
VBA 連続する名前ごとに集計
-
Accessでタブ区切りのテキスト...
-
VBでXMLデータをMS-ACCESS2000...
-
エクセルのマクロ
-
REST APIでkintoneのレコード追...
おすすめ情報