|
▼ichi さん:
こんにちは。横から失礼します。
>画像ファイルを持っていません。(Imageコントロール上のPictureの情報のみです)
これ、高度なテクニックですよね?
Clipboardから取得されているのでしょうか。
でも、とりあえず
>SavePictureとは何でしょうか?ヘルプを探しましたが見つかりませんでした。
についてはこちらが参考になるかも
tp://officetanaka.net/excel/vba/statement/index.htm
>Imageコントロールごと
とは、Imageコントロールそのものではなくて、
『Imageコントロールのフレームの大きさで』ととらえた場合、
シート上にImageコントロールをつくっておいて、
それを経由するという方法も考えられるかと思います。
Private Sub CommandButton1_Click()
With Sheet1
With .Image1
.Visible = True
.Picture = Me.Image1.Picture
DoEvents: DoEvents
.CopyPicture
.Visible = False
End With
.Paste Cells(1)
End With
End Sub
|
|