パワーポイントのスライドに、日次毎の表題を複数シート作成したいと思っています。
エクセルシートに、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ランキング
-
キャッシュとバッファの違いは?
-
SQL Server にファイルを登録、...
-
Access 外部データ インポー...
-
UNIX時間をEXCEL上で日付・時間...
-
BINファイル破損データの復元方法
-
GerberデータからBmpデータへの...
-
LVMでHDDが壊れた時の対応
-
スタライズとは、どういう意味...
-
JSONって単純にテキストの書き...
-
データベースの最適化をマクロ...
-
データベースの使用例とその技術
-
VBAかSQL?
-
DBとテキストファイルの比較
-
汎用カード型のデータベースソ...
-
ORACLEパフォーマンス改善方法
-
希望の位置へフィールドを追加...
-
Access or SQLServer どちらを...
-
AndroidからのAccessデータベー...
-
型 varchar から型 numeric へ...
-
DAOでのコードをADOへ書き直し
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
キャッシュとバッファの違いは?
-
SQL Server にファイルを登録、...
-
値がこの列の整合性制約に違反...
-
LVMでHDDが壊れた時の対応
-
スタライズとは、どういう意味...
-
Access 外部データ インポー...
-
C#でint型をIntPtr型に変換した...
-
UNIX時間をEXCEL上で日付・時間...
-
Thunderbirdのインポートの処理...
-
BINファイル破損データの復元方法
-
VBA 連続する名前ごとに集計
-
outlook本文から項目を選択して...
-
Googleの衛星写真はいつ掲載さ...
-
ワードプレスの絶対パスについて
-
CSV形式での集計
-
テクトロニクスのオシロスコー...
-
VBA 罫線について B列3行目から...
-
エクセルのデータをWEBで公開し...
-
比熱比の計算
-
VBでXMLデータをMS-ACCESS2000...
おすすめ情報