[[20040609153238]]　『userformのimageにpictureをloadする方法　for ma』（878）　ページの最後に飛ぶ

『userformのimageにpictureをloadする方法　for mac』（878）

過去ログの[20021021094814]の方と同じ様な質問です。

変数(mypath)に格納した名前と同じ名前を持つ画像をデスクトップ上のフォルダ(picture)から探し出し、
userform上のimageにloadしたいと思っています。
都合上ウィンドウズ盤とマック盤を作らなければなりません。
以下の様なマクロを書き、動かした所ウィンドウズでは正常に動きましたが、
マックではエラーを起こしてしまいます。ウィンドウズとマックではpathの書き方が違う事は分かっていたので
その辺りは変更したつもりなのですが、

「コンパイルエラー：
関数またはインターフェイスが予約されているか、またはVisual Basicでサポートされていないオートメーションタイプが関数で使用されています」
と表示されてしまいます。

pathの生成の仕方が悪いのかとも思い、pathも色々書いてみましたが、どうもそれ以前にマックに於けるloadpicture関数の使い方が違う様な気がしています。
いずれにしても、私の頭の中はすでにパニックを起こしており、お手上げ状態です。
どうぞご指導のほど、よろしくお願いします。　　　

（ウィンドウズ盤）

Sub gazou()

On Error GoTo HandleErr

Dim mypath As String

mypath = "C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\picutre\" & ComboBox1.Value & "-" & TextBox1.Text & ".jpg"

If (mypath = "") Then

Image1.Picture = LoadPicture

Exit Sub

End If

Image1.Picture = LoadPicture(mypath)

Exit Sub

HandleErr:

End Sub

（マック盤）

Sub gazou()

On Error GoTo HandleErr

Dim mypath As String

mypath = "Macintosh HD:Users:mac1:Desktop:picture:" & ComboBox1.Value & "-" &

TextBox1.Text & ".jpg"

If (mypath = "") Then

Image1.Picture = LoadPicture

Exit Sub

End If

Image1.Picture = LoadPicture(mypath)

Exit Sub

HandleErr:

End Sub

[エクセル、Mac OS共にXを使用しています。]

コメント返信：

[ 一覧(最新更新順) ]

[[20040609153238]] 『userformのimageにpictureをloadする方法 for ma』（878） ページの最後に飛ぶ

[[20040609153238]]　『userformのimageにpictureをloadする方法　for ma』（878）　ページの最後に飛ぶ