Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22258 / 76807

←次へ　｜　前へ→


	【59932】Re:PDFのウィンドウサイズ変更

KAO - 09/1/20(火) 10:54 -


	引用なし

	パスワード

▼Yuki さん：

何度もすみません。
あれから、
＞Application.Wait Now + TimeValue("0:00:03")
　↑コードをいれてみたところ、loopからは開放されましたが、
　次は、下記のところで止まってしまい、悩んでます

lngTaskId = Shell(strEXE & strPDF, 3)
　　
　　Application.Wait Now + TimeValue("0:00:03")

　　'　　' 起動待ち
　　On Error Resume Next
　　Do
　　　　DoEvents
　　　　Err.Clear
　　　　AppActivate lngTaskId
　　Loop Until Err.Number = 0
　　On Error GoTo 0
　
　　' PDF を画面右半分
　　strClass = "AcrobatSDIWindow"
　　lnghWnd = FindWindow(strClass, vbNullString)
　　If lnghWnd = 0 Then Exit Sub

上記のコードの最後部で、Exit Subまで進んでマクロの実行が終了してしまいます

なぜなんでしょうか？
なかなか、前に進めず苦しんでおります

PDFを下記のコードから変更したのが、原因でしょうか？
strEXE = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe "
↓下記へ変更しました。
strEXE = "C:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe "

どうか、よろしくお願いします

1 hits

▼

【59860】PDFのウィンドウサイズ変更 KAO 09/1/14(水) 11:55