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 質問
【74371】Re:Runメソッドは失敗しました。 kanabun 13/5/27(月) 17:13 発言
【74372】Re:Runメソッドは失敗しました。 ゆらり 13/5/27(月) 18:50 発言
【74374】Re:Runメソッドは失敗しました。 kanabun 13/5/27(月) 20:09 発言
【74375】Re:Runメソッドは失敗しました。 kanabun 13/5/27(月) 20:24 発言
【74376】Re:Runメソッドは失敗しました。 ゆらり 13/5/27(月) 20:59 発言
【74382】Re:Runメソッドは失敗しました。 kanabun 13/5/28(火) 11:11 発言
【74387】Re:Runメソッドは失敗しました。 kanabun 13/5/28(火) 19:38 発言

7945 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free