表題の件、質問します。
困っている事が4点あります。
1.PowerPointへ挿入したテキストのサイズを変更したい
2.PowerPointへ挿入したテキストのフォントを変更したい
3.PowerPointへ挿入したグラフのサイズを変更したい
4.powerpointを名前を付けて、指定の場所へ保存
以上、宜しくお願いします。
参考にコードを記述します。
Sub test()
Dim app As PowerPoint.Application
Dim pre As PowerPoint.presentation
Set app = CreateObject("powerpoint.application")
app.Visible = True
Set pre = app.Presentations(1)
app.Presentations(1).Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal _
, 100, 100, 200, 50).TextFrame.TextRange.Text = "図1"
'↑ここで作成したテキストのサイズを変更
'↑ここで作成したテキストのフォントを変更(例:MS 明朝)
Worksheets("グラフ").Shapes(1).CopyPicture
pre.Slides(1).Shapes.Paste
pre.Slides(1).Shapes(1).Left = 180
pre.Slides(1).Shapes(1).Top = 150
'↑ここで挿入したグラフのサイズを変更(例:縦横50%へ)
'最後に、名前を付けて指定の場所へ保存
End Sub
※マクロ起動条件:
1.excelに"グラフ"のsheetがある事
2.sheet内にグラフがある事
3.powerpointを開いていること(スライドが1枚ある事)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
保存は プレゼンテーションオブジェクトの Save、SaveAsなどのメソッド使えば可能だと思いますよ
pre.Save "MyTest.ppt"
といった具合で ・・・
No.1
- 回答日時:
PowerPointの参照設定をしているのであれば
> app.Presentations(1).Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal _
, 100, 100, 200, 50).TextFrame.TextRange.Text = "図1"
一気に記述するより Withや PowerPoint.Shapeで受けて操作しましょう
dim sh as PowerPoint.Shape
set sh = app.Presentations(1).Slides(1).Shapes. _
AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50)
with sh.TextFrame.TextRange
.Text = "図1"
.Font.Size = 24
.Font.Name = "MS 明朝"
End With
同様に グラフは Pasteの戻り値 ShapeRangeで受け取ります
Dim shr as PowerPoint.ShapeRange
Worksheets("グラフ").Shapes(1).CopyPicture
Set shr = pre.Slides(1).Shapes.Paste
shr.Left = 180
shr.Top = 150
shr.LockAspectRatio = msoTrue
' WidhかHeightのどちらか一方を設定
' 両方実行すると1/4になるので注意
shr.Width = shr.Width / 2
'shr.Height = shr.Height / 2
といった具合でしょう
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) ExcelのグラフをPowerPointに貼り付けした際にデータテーブルの小数点以下を削除したいです 2 2023/02/28 19:46
- Visual Basic(VBA) VBAでPowerPointからExcelにレイアウト通りに出力する 4 2023/07/05 12:22
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Excel(エクセル) 【エクセルマクロ】既に開いているIEの、サイズや表示位置を変更するには 4 2022/12/01 22:57
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) エクセルから、パワーポイントのスライドを複数作成する。 1 2022/07/08 09:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのグラフをLaTexに挿入す...
-
Excel VBAでグラフをクリックし...
-
C#のChartで目盛線をグラフの前...
-
CGIでアンケートリアルタイム集計
-
excelで散布図に線を追加したい
-
Matlabによる複素数・・・
-
VBA グラフの存在の判定について
-
onedriveで同期解除をしたら、...
-
teratarmでコマンド入力すると...
-
vlan internal allocation poli...
-
共有しているファイルを削除し...
-
沢山のフォルダにあるファイル...
-
Windowsファイルエクスプローラ...
-
マイドキュメントのフォルダの...
-
入力/出力エラーですというファ...
-
エクセルVBAについて
-
WindowsからSSHでサーバーにあ...
-
TXTファイルを上書き保存する前...
-
HDDのファイルが知らないうちに...
-
YAHAMA RTXシリーズのコマンド...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA グラフの存在の判定について
-
論文に載せるグラフを作成したい
-
【VBA】Excel等高線グラフの...
-
グラフの元のデータを消しても...
-
excelのグラフをLaTexに挿入す...
-
Excel VBAでグラフをクリックし...
-
グラフを「似ている」順に並べ...
-
Excel VBAで、グラフを特定のセ...
-
MFCプログラミング
-
Excel VBA グラフ ChartType に...
-
c言語 正負の値それぞれでの最...
-
グラフの色を数値で変わるように!
-
C#のChartで目盛線をグラフの前...
-
excelで散布図に線を追加したい
-
Excel VBAでグラフ作成。A,C列...
-
matlabのy軸を2つ利用したグラ...
-
Google Chart APIでランキング表示
-
gnuplotで関数を途切れさせるに...
-
C言語によるハノイの塔のプログ...
-
Scilabのグラフの凡例
おすすめ情報