投稿日	： 2005/02/09(Wed) 23:38
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: ピクチャークリップの画像をエクセルに貼り付ける方法

ヘルプを見れば使用例が載っていますよ。

Private Sub Command1_Click()
    Dim xlApp    As Excel.Application
    Dim xlBook   As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    
    PictureClip1.ClipX = 0
    PictureClip1.ClipY = 0
    PictureClip1.ClipHeight = PictureClip1.CellHeight
    PictureClip1.ClipWidth = PictureClip1.CellWidth
    Clipboard.Clear
    Clipboard.SetData PictureClip1.Clip
    
    xlApp.Visible = True
    xlSheet.Range("B2").Select
    'セルH2の位置に貼付け
    xlSheet.Paste
    '別途手動でExcelを終了して下さい。
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

★ - ピクチャークリップの画像をエクセルに貼り.. - NM 02/09-22:43No.2067
• Re: ピクチャークリップの画像をエクセルに.. - 花ちゃん 02/09-23:38 No.2069
  • Re^2: ピクチャークリップの画像をエクセル.. - NM 02/10-00:35 No.2070
    • Re^3: ピクチャークリップの画像をエクセル.. - 花ちゃん 02/10-07:21 No.2071
      • 解決しました - NM 02/10-10:52 No.2075