Excel VBA質問箱 IV

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

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


41916 / 76732 ←次へ | 前へ→

【39890】Re:UserFormへの画像の張り付け方
質問  わいわい  - 06/7/3(月) 18:15 -

引用なし
パスワード
   Kein 様
いつもいつも回答して頂きありがとうございます。

>↓こちらは、画像に登録して呼び出し専用とするマクロです。
>
>Sub SetUF()
>  Dim FPath As String
>  Dim x As Variant
> 
>  x = Application.Caller
>  If VarType(x) <> vbString Then Exit Sub
>  FPath = ActiveSheet.Pictures(x) _
>  .ShapeRange.AlternativeText
>  MsgBox FPath
>  If UserForms.Count > 0 Then Unload UserForm1
>  UserForm1.Show
>  On Error Resume Next
>  With UserForm1.Image1.Picture
>   .LoadPicture = ""
>   .LoadPicture = FPath
>  End With
>End Sub
>
>*コードは間違いないはずですが、なぜかこちらのテストでは何度やっても
>画像を表示できませんでした。
>こちらのImageオブジェクトは、どこかがおかしいみたいです・・。

下記のように変更したら表示できました。

Sub SetUF()
  Dim FPath As String
  Dim x As Variant
 
  x = Application.Caller
  If VarType(x) <> vbString Then Exit Sub
  FPath = ActiveSheet.Pictures(x) _
  .ShapeRange.AlternativeText
  MsgBox FPath
  If UserForms.Count > 0 Then Unload UserForm1
>> UserForm1.Show 0  モーダル起動していたので処理が止まっていた?(1)
'  With UserForm1.Image1.Picture
'   .LoadPicture = ""
'   .LoadPicture = FPath
'  End With
>> With UserForm1.Image1  'WithブロックなんちゃらとErrorが出たので修正
>>  .Picture = LoadPicture("")
>>  .Picture = LoadPicture(FPath)
>> End With
>> UserForm1.Show   Picture設定してからForm表示。(2) (1)とどちらか一方
  On Error Resume Next
End Sub


但しこれですと、FPathで指定しているように外部に画像データを配置しなければならないと思う(実際にフォルダ名称変更でError)のですが、本体ファイル以外にファイル準備をしなくても良いように出来ないですか?例えばxを使ってですが。

0 hits

【39845】UserFormへの画像の張り付け方 わいわい 06/7/2(日) 22:18 質問
【39846】Re:UserFormへの画像の張り付け方 bykin 06/7/2(日) 23:11 回答
【39862】Re:UserFormへの画像の張り付け方 わいわい 06/7/3(月) 13:14 質問
【39874】Re:UserFormへの画像の張り付け方 Kein 06/7/3(月) 14:53 回答
【39890】Re:UserFormへの画像の張り付け方 わいわい 06/7/3(月) 18:15 質問
【39997】Re:UserFormへの画像の張り付け方 ichinose 06/7/5(水) 8:48 発言
【40137】Re:UserFormへの画像の張り付け方 わいわい 06/7/7(金) 13:48 お礼
【40371】Re:UserFormへの画像の張り付け方 ichinose 06/7/12(水) 17:45 発言
【40411】Re:UserFormへの画像の張り付け方 わいわい 06/7/13(木) 13:31 お礼

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