|
▼りん さん:
お手間をお掛けして申し訳ございません。
先ほど投稿した件、一部間違っておりました。
最後の図のみ表示されます。
コードは以下の通り
Private Sub UserForm_Activate()
Dim x As Integer
On Error Resume Next
'アクティブなシートの一つ目のピクチャ
With Application.ActiveSheet
If .Pictures.Count = 0 Then
Me.Caption = .Name & "上にPictureはありませんでした"
Else
For x = 1 To 15
If .Pictures.Count < x Then
GoTo step1
Else
.Pictures(x).Copy
Me.Caption = .Name & "上の" & .Pictures(x).Name
'イメージコントロールに割付
UserForm2("Image" & x).Visible = False
UserForm2("Image" & x).Picture = Clipboard_GetMetafile()
UserForm2("Image" & x).Visible = True
End If
Next x
step1:
End If
End With
End Sub
宜しくお願い致します。
|
|