|
書き込み失礼致します。
現在、エクセル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
|
|