none
エクセルファイルに画像を貼り付けるの質問 RRS feed

  • 質問

  • エクセルファイルにイメージコントロールを置き、VB2005のPictureBox1.ImageからエクセルファイルのImage1.Pictureにビットマップ形式の画像を送りたいのですが、エクセルファイルに対しての記述がわかりません。おしえてください。

    Dim xlApp As New Microsoft.Office.Interop.Excel.Application
    Dim xlBooks As Microsoft.Office.Interop.Excel.Workbooks = xlApp.Workbooks
    Dim xlFilePath As String = "????.xls"
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook = xlBooks.Open(xlFilePath)
    Dim xlSheets As Microsoft.Office.Interop.Excel.Sheets = xlBook.Worksheets
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet = xlSheets(1)
    Dim xlRange As Microsoft.Office.Interop.Excel.Range
    Dim iData As IDataObject = Clipboard.GetDataObject()

    xlApp.Visible = True
    Clipboard.SetDataObject(PictureBox1.Image, True)
    "ここがわかりません" = CType(iData.GetData(DataFormats.Bitmap), Image)

    上記でいいのかどうかもわかりません。お願いいたします。

    2006年11月1日 1:11

回答

すべての返信