質問させていただきます.
どうぞよろしくお願いいたします.
PowerPointの操作をするコードを作成して使っております.
毎回立ち上がるパワポのウィンドウを非表示にしたいのですが,
myAPP.Visible = True状態でないと,presentations.Openでエラーが出てしまいます.
Dim myAPP As Object
myAPP = CreateObject("PowerPoint.Application")
Dim myAPPpre = myAPP.presentations
Dim Mypath As String = TextBoxパス.Text
Dim FName As String
myAPP.Visible = True
FName = Dir(Mypath & "test.ppt", vbNormal)
With myAPPpre.Open(Mypath & FName) '←上のmyAPP.Visible = Trueを消すとエラー
'「Presentations.Open : 無効な要求です。PowerPoint のフレーム ウィンドウは存在しません。」となります.
どうにか見えない状態で実行できないものでしょうか.
調べておりますと,同じ現象がよくあるようでした.
(http://www.kotaete-net.net/Default.aspx?pgid=14& …
http://www.microsoft.com/japan/technet/scriptcen … のページ中間あたり「さいわい、Visible プロパティを True に設定することによって~」のところ.)
もし何か方法が分かるかたがいらっしゃいましたら,
アドバイスいただければと思います.
どうぞよろしくお願いいたします.
No.1ベストアンサー
- 回答日時:
Openの引数WithWindowの既定値はmsoTrueですから,そうなるでしょう。
WithWindowにMsoTriState.msoFalseを渡してやればよいです。
どうもありがとうございます!
アドバイス通りやってうまくいきました.
はじめ,Importするとエラーだらけになったので,
With myAPPpres.Open(Mypath & FName, WithWindow:=Microsoft.Office.Core.MsoTriState.msoFalse)
でできました.
ただActivePresentationエラーの修正と合わせて
3時間かかりました..orz
本当にどうもありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) このコードに追記事項の仕方を教えて下さい。 以下のコード内容に出てくる。セルH3が空白の場合、エラー 4 2023/08/03 00:22
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ExcelVBAにて既に開かれているPowerpointをアクティブにするには?
Excel(エクセル)
-
【PowerPoint VBAの高速化】
その他(プログラミング・Web制作)
-
ExcelのVBAで、選択したファイルが既に開かれているか確認したい
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
エクセルVBAを使用し、指定のパワーポイントをPDF保存する方法
Excel(エクセル)
-
6
パワーポイントのVBAでテキストボックスに値を変更させたいです
Visual Basic(VBA)
-
7
VBAで既存のパワポのファイルを開くには?
Access(アクセス)
-
8
PowerPoint の VBA
Visual Basic(VBA)
-
9
PowerPointVBAでスライドマスター上での編集
PowerPoint(パワーポイント)
-
10
VBAでPowerPointからExcelにデータを抽出する
Visual Basic(VBA)
-
11
なぜマクロの記録がなくなってしまったのでしょうか?
Excel(エクセル)
-
12
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
13
VBからPowerPointのマクロを実行する方法
Visual Basic(VBA)
-
14
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
15
パワーポイントの置き換えマクロ
PowerPoint(パワーポイント)
-
16
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
17
エクセルでエラーが出て困っています。
Excel(エクセル)
-
18
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
-
19
Vba Userformを前面に出すについて
Access(アクセス)
-
20
ExcelのVBAでWordを読み取り専用で開いて、見たいページに自動で移動する方法を教えて頂きたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
エクセル関数を教えてください
-
String""から型'Double'への変...
-
ApplicationとWorksheetFunctio...
-
エクセルVBAでApplication.Sum...
-
VBでSQL文のUPDATE構文を使った...
-
マクロの「SaveAs」でエラーが...
-
Filter関数を用いた結果、何も...
-
実行時エラー 438 の解決策をお...
-
VBA データ(特定値)のある最...
-
数式は残し値をクリアするマク...
-
エクセルVBAで#N/Aのようなエ...
-
マクロで"#N/A"のエラー行を削...
-
ACCESS VBAのSplit()関数の使用...
-
ACCESS2007 VBA 「INSERT INTO...
-
文字列内で括弧を使うには
-
【VBA】ワークブックを開く時に...
-
C言語のエラーについて。
-
オブジェクト型の変数にフォー...
-
Excel vbaについての質問
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
On ErrorでエラーNoが0
-
エクセルVBA 「On Error GoTo...
-
VBA データ(特定値)のある最...
-
実行時エラー'-2147467259(8000...
-
【VBA】ワークブックを開く時に...
-
VBでSQL文のUPDATE構文を使った...
-
ACCESSで値を代入できないとは?
-
マクロの「SaveAs」でエラーが...
-
Excel vbaについての質問
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
「実行時エラー '3167' レコー...
-
バッチファイルで、あるスクリ...
おすすめ情報