|
ニッキ さん、こんにちわ。
>お手間をお掛けして申し訳ございません。
>先ほど投稿した件、一部間違っておりました。
>最後の図のみ表示されます。
>Private Sub UserForm_Activate()
>Dim x As Integer
画像を最大15個読むんですか?
> 'イメージコントロールに割付
> UserForm2("Image" & x).Visible = False
> UserForm2("Image" & x).Picture = Clipboard_GetMetafile()
> UserForm2("Image" & x).Visible = True
DoEvents 'これを追加
> End If
> Next x
>step1:
> End If
> End With
>End Sub
3個読む例はこんな風にしてみたのですが。
Private Sub UserForm_Activate()
Dim a As String, II As Integer
'アクティブなシートの一つ目のピクチャ
With Application.ActiveSheet
If .Pictures.Count = 0 Then
Me.Caption = .Name & "上にPictureはありませんでした"
Else
a = .Name & "上の "
For Each obj In .Pictures
II = II + 1
.Pictures(II).Copy
a = a & .Pictures(II).Name & " "
'イメージコントロールに割付
With Me.Controls("Image" & II)
.Visible = False
.Picture = Clipboard_GetMetafile()
.Visible = True
End With
'
DoEvents
'
If II = 3 Then Exit For '最大3個
Next
Me.Caption = a
End If
End With
End Sub
|
|