アクセスやエクセルからVBAで既存のパワポのファイルを開くには?
参照設定をして、
Sub test()
Dim App As PowerPoint.Application
Dim MyFileName As String
Set App = CreateObject("PowerPoint.Application")
MyFileName = CurrentProject.Path & "サンプル.ppt"
App.Visible = True
Set App = Nothing
End Sub
を実行すると、パワポの空のアプリケーション開きますが肝心のファイルが開きません。
開く方法を教えてください。
No.3ベストアンサー
- 回答日時:
ExcelファイルやAccessファイルと
パワーポイントのファイルが同じフォルダにあるとして
Accessなら、CurrentProject.Path
Excelなら、ThisWorkbook.Path
でフォルダ名までが得られますので、それに \ を付け足して
CurrentProject.Path & "\" & "サンプル.ppt"
パワーポイントに参照設定を行っているのですから
CreateObjectせずに
Sub PPTopen()
Dim pp As New PowerPoint.Application
pp.Presentations.Open ThisWorkbook.path & "\" & "サンプル.ppt"
以下省略
で。
開くだけで、その後はVBAでパワーポイントを操作しないのであれば
Shell ("explorer.exe" & Chr(32) & ThisWorkbook.path & "\" & "サンプル.ppt"
↑読み取り専用で開かれました。当方 Office2010 の場合
↓PPTファイルをダブルクリックで開いた状態
CreateObject("shell.application").shellexecute ThisWorkbook.path & "\" & "サンプル.ppt"
とかでも。
ちなみにパワーポイントは数年来使ったことはありませんので
これ以上のことはご勘弁ください。
参照設定を行ってる場合はCreateObjectは不要なのですか。
Sub test()
Dim MyFileName As String
MyFileName = CurrentProject.Path & "¥" & "サンプル.ppt"
Dim App As New PowerPoint.Application
App.Presentations.Open MyFileName
App.Visible = True
Set App = Nothing
End Sub
***********************************************
をすると、
実行時エラー -2147188160
「Presentations(不明なメンバー) : 無効な要求です。
PowerPoint のフレーム ウィンドウは存在しません。」
になってしまいました。
しかし、
Sub test2()
CreateObject("shell.application").shellexecute CurrentProject.Path & "\" & "サンプル.ppt"
End Sub
で、無事開くことが出来ました。ご回答ありがとうございました。
No.2
- 回答日時:
CurrentProject.Path が返すパスに末尾に \ がありましたっけ?
あってもなくても対応できるようにして、再実行するとどうなりますか?
MyFileName = CurrentProject.Path & ".\サンプル.ppt"
C:\test が返されるなら、上記で C:\test.\サンプル.ppt → C:\test\サンプル.ppt と同じ
C:\test\ が返されても、上記で C:\test\.\サンプル.ppt → C:\test\サンプル.ppt と同じ
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) エクセルから、パワーポイントのスライドを複数作成する。 1 2022/07/08 09:40
- その他(プログラミング・Web制作) VBSでExcelファイル起動時、重複しても開くのを止めたい 1 2022/10/01 23:20
- Visual Basic(VBA) vbaの構文の修正相談(xmlファイルを順に開いてコピペ作業) 1 2023/04/22 01:18
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) VBAでWEBサーバー上に保存されたPDFファイルのリンク有効チェックについて 1 2022/11/11 16:04
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
ExcelVBAにて既に開かれているPowerpointをアクティブにするには?
Excel(エクセル)
-
【VB.NET】 パワポ操作を非表示で
Visual Basic(VBA)
-
ExcelのVBAで、選択したファイルが既に開かれているか確認したい
Excel(エクセル)
-
-
4
PowerPoint の VBA
Visual Basic(VBA)
-
5
パワーポイント filedialogでフォルダ名
PowerPoint(パワーポイント)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
PPTのコマンドボタンがクリックできません
その他(Microsoft Office)
-
8
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
9
パワーポイントのVBAでテキストボックスに値を変更させたいです
Visual Basic(VBA)
-
10
エクセルVBAを使用し、指定のパワーポイントをPDF保存する方法
Excel(エクセル)
-
11
PowerPointVBAでスライドマスター上での編集
PowerPoint(パワーポイント)
-
12
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
13
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
14
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
15
エクセルVBAでパワーポイントを開き、表に文字を挿入jpeg保存時の実行時エラー
Visual Basic(VBA)
-
16
【PowerPoint VBAの高速化】
その他(プログラミング・Web制作)
-
17
なぜマクロの記録がなくなってしまったのでしょうか?
Excel(エクセル)
-
18
VBAでアクティブなファイルを切り替える
PowerPoint(パワーポイント)
-
19
エクセルVBAで、フォルダ内のパワポファイル(パスワードなし)を開いて、エクセルにタイトル等を表示
Visual Basic(VBA)
-
20
エクセルマクロにてパワーポイントのリンク更新をさせたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
このAV女優さんの名前
-
「見本」と「サンプル」について
-
ビデオ屋さんのアダルトコーナ...
-
このエロ過ぎな黒ギャルAV女優
-
アダルトVHS、アダルトdvdを売...
-
AV女優の名前を知りたい
-
アダルトDVDの事で聞きたいんで...
-
VBAで既存のパワポのファイルを...
-
Excelの関数の文字列""で「"」...
-
部分分数分解で微分しなきゃ
-
某YouTuberさんがホラードッキ...
-
wordマクロで条件に合う文のみ...
-
エクセルで粘度計算表を作りたい
-
はじめて競泳水着(Vパン)を...
-
fc2のブログランキングのアダル...
-
FLASHで歩くアニメを作りたい
-
やりがい搾取系の記事などに出...
-
Windows Defenderのサンプルの...
-
AVの選び方について教えてくだ...
-
女性はマンコ舐めてほしいんで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ビデオ屋さんのアダルトコーナ...
-
このAV女優さんの名前
-
部分分数分解で微分しなきゃ
-
https://youtu.be/4J_0EJgmFwA?...
-
「見本」と「サンプル」について
-
測定値がまったく同じになった...
-
このエロ過ぎな黒ギャルAV女優
-
アダルトVHS、アダルトdvdを売...
-
Windows Defenderのサンプルの...
-
VBAで既存のパワポのファイルを...
-
AVの選び方について教えてくだ...
-
AV女優の名前を知りたい
-
「ちびまる子ちゃん」野口さん...
-
ゲッターズ飯田の占いで、乱気...
-
エクセルで粘度計算表を作りたい
-
はじめて競泳水着(Vパン)を...
-
バラエティー番組などで
-
優良エロ漫画読めるサイトあり...
-
アダルト動画は在日朝鮮人製作...
-
アダルトDVDの在庫が豊富なレン...
おすすめ情報