Excel VBA質問箱 IV

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

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


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

7945 / 76734

←次へ　｜　前へ→


	【74370】Runメソッドは失敗しました。

ゆらり - 13/5/27(月) 14:49 -


	引用なし

	パスワード

書き込み失礼致します。

現在、エクセルVBAにて選択した画像を回転させ、保存するマクロを目標にしています。しかし、理解が足りずなかなか組めません。現在はファイルを開く時に掲題のエラーが出てしまいます。
宜しければどなたかご教授頂けないでしょうか？
簡単な説明を頂けると幸いです。宜しくお願い致します。

ソースは

Sub selectfile(myFnames, fileNo, errCode)
Dim myFnames as Variant
Dim errCode as Integer

　　myFnames = Application.GetOpenFilename("ビットマップ　ファイル (*.bmp),*.bmp", , "ファイルを選択してください", , True) '入力ﾌｧｲﾙ名の選択
If myFnames(1) = False Then errCode = 1

'選択したファイルの回転と保存
　Rotationfile myFnames(1)
　　
　　Sub Rotationfile(myFnames)
With CreateObject("Wscript.shell")
CreateObject("WScript.Shell").Run "myFnames(1)", 5, True
End With
End Sub

2 hits

▼

【74370】Runメソッドは失敗しました。 ゆらり 13/5/27(月) 14:49

≪