![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
表題の件、質問します。
困っている事が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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
グラフを「似ている」順に並べ...
-
Excel VBAでグラフをクリックし...
-
ExcelVBAでのPPT操作ついて
-
エクセルでファイルの最終更新...
-
onedriveで同期解除をしたら、...
-
vlan internal allocation poli...
-
沢山のフォルダにあるファイル...
-
TXTファイルを上書き保存する前...
-
YAHAMA RTXシリーズのコマンド...
-
WindowsからSSHでサーバーにあ...
-
マイドキュメントのフォルダの...
-
共有しているファイルを削除し...
-
teratarmでコマンド入力すると...
-
ファイル名の命名のオススメを...
-
Edgeでダウンロード状況表示画...
-
読み取り専用ファイルを上書き...
-
Excel VBAでほかのアプリケーシ...
-
VBA メモ帳の上書き保存がしたい
-
CPコマンドでファイルがコピー...
-
データ移動時にポップアップメ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA グラフの存在の判定について
-
matlabのy軸を2つ利用したグラ...
-
Excel VBAでグラフをクリックし...
-
C#のChartで目盛線をグラフの前...
-
グラフを「似ている」順に並べ...
-
グラフの元のデータを消しても...
-
Matlabによる複素数・・・
-
平面上のデータのグラフ化
-
c言語 正負の値それぞれでの最...
-
【VBA】Excel等高線グラフの...
-
論文に載せるグラフを作成したい
-
Excel VBAでのグラフ
-
Scilabのグラフの凡例
-
excelのグラフをLaTexに挿入す...
-
excelで散布図に線を追加したい
-
C言語でグラフ作成
-
グラフの色を数値で変わるように!
-
C言語によるハノイの塔のプログ...
-
Excel VBAで、グラフを特定のセ...
-
現在、エクセルで、選択したグ...
おすすめ情報