エクセルから表をパワーポイントへ貼り付けたときの、位置調整がうまくいきません。宜しくお願いします。
--------------------
sub test1()
Dim pptApp As Object
Dim pptPre As Object
Dim tempFileName As String
Dim macrofile As String 'エクセルの貼り付け元のファイル名
Dim sht As String 'エクセルの貼り付け元のシート名
Dim page As Integer 'パワーポイントへの貼り付けたいページ
Dim picPos_yoko As Long 'パワーポイントへの貼り付け横位置
Dim picPos_tate As Long 'パワーポイントへの貼り付け縦位置
macrofile = "sample001.xls"
sht = "sheet1"
tempFileName = ThisWorkbook.Path & Application.PathSeparator _
& macrofile
Set pptApp = CreateObject("powerPoint.Application")
With pptApp
.Visible = True
Set pptPre = .Presentations.Open(tempFileName)
End With
Workbooks(macrofile).Worksheets(sht).Activate
Range("A1").CurrentRegion.Copy '表のコピー
With pptPre.Slides(page)
.Shapes.Paste.Name = "hyou1"
With .Shapes("hyou1")
.Top = picPos_yoko
.Left = picPos_tate
End With
End With
End Sub
------------------------
.Shapes.Paste.Name = "pic1"
↑この行で名前をつけたかったがうまく名前がついていない。
貼り付けた表の名前をパワーポイントのマクロの記録で確認したところ "Group 288"と名前がついていた
With .Shapes("hyou1")
↑当然この行で"hyou1"は見つからないというエラーが出てしまう。
表をエクセルからコピーして、パワーポイントへ位置を指定して張り付けるかもしくは貼り付けた後に移動ができるかを実現したい。
何かいい方法はありませんか?パワーポイントへエクセルからグラフを貼り付けた場合はうまくいきました。
また。パワーポイントの表の名前のつけ方には規則性があるのでしょうか。規則性があれば、それに則ってコードをかけるのですが・・・。
No.3ベストアンサー
- 回答日時:
書き忘れました。
下のコードにして、名前が変更されていることも確認してください。
オブジェクト名: hyou1 になると思います。
With pptPre.Slides(page).Shapes
.Paste
With .Item(.Count)
.Name = "hyou1"
.Top = picPos_tate
.Left = picPos_yoko
MsgBox "オブジェクト名: " & .Name
End With
End With
No.2
- 回答日時:
Pasteメソッドが返すShapeRangeオブジェクトはあまり
あてにならないので、すぐには使わず、
いったんSlide.Shapesプロパティから貼り付けたオブジェクトを取得、
名前を設定としてみてください。もしかしたらうまくいくかもしれません。
With pptPre.Slides(page).Shapes
.Paste
With .Item(.Count)
.Name = "hyou1"
.Top = picPos_tate
.Left = picPos_yoko
End With
End With
※バージョンが違うとだめな場合があります。
例えばPPT2007の場合は
pptApp.ActiveWindow.View.Paste
With pptPre.Slides(page).Shapes
With .Item(.Count)
.Name = "hyou1"
.Top = picPos_tate
.Left = picPos_yoko
End With
End With
No.1
- 回答日時:
1、位置に関して・・・単に縦横を逆に設定しているだけでしょう。
.Top = picPos_yoko
.Left = picPos_tate
2、「名前」は変更できないみたいです。
表は非常にたくさんのオブジェクトがグループ化されたものとして
扱われています。
どうしても名前を付け替えるなら
図として張り付ければ可能でしょう。
貼り付ける場合は必ず最後のshapeになるのでこのようにcountを使うことで名前を取得できます。
.Shapes(.Shapes.Count).Name
1.これは記述を間違って逆にしてしまいました。誤解を与えてすみませんでした。m__m
2.なるほど図として貼り付けたところうまくいきました。ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
textBox isNot Nothing とは
-
Excelでフィルタをかけると警告...
-
実行時エラー 3265「要求された...
-
AccessVBAで「dim dbs as datab...
-
VBAで既に開いている別アプリケ...
-
テキストボックス中の文字列の...
-
VB6 エクセルに画像貼り付け
-
EXCEL VBA COLLECTIONオブジェ...
-
VBScriptからDLL参照設定したい
-
python __del__()に関して
-
InternetExplorer.Application...
-
上下の位置揃えについて
-
UserForm1.Showでエラーになり...
-
エクセルのVBAの標準モジュール...
-
ActiveXコントロールを用いたマ...
-
AccessVBA NULLについて
-
VBで引数にDictionaryオブジェ...
-
Excel VBAでWordの複数ファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
VBAで Set wb = Sheets(1).Cop...
-
テキストボックス中の文字列の...
-
PowerPointVBAでスライドマスタ...
-
エクセルマクロエラー「'Cells'...
-
VBAからPDFファイルにパスワー...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
ある文字列が全て数字であるか...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
VBAで作成するメール(開封確認...
-
VBAについてです。 初心者です...
-
VBA:オートシェイプの線の長...
-
VBで引数にDictionaryオブジェ...
-
AccessVBAで「dim dbs as datab...
おすすめ情報