вставка изображения, чтобы преуспеть

Question

я использую visualbasic express. Я хочу вставить изображение в приложение Excel. Я преуспел в этом. вот код;

    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object

    oExcel = CreateObject("Excel.Application")
    oExcel.Visible = True
    oBook = oExcel.Workbooks.Add
    oSheet = oBook.Worksheets(1)
    oSheet.Shapes.AddPicture("C:\Logo\logo.bmp", False, True, 415, 1, 20, 30)

это хорошо работает. Но вместо того, чтобы указать местоположение картинки («C: \ Logo \ logo.bmp»), я хочу разместить само изображение. Я хочу изменить последнюю строку следующим образом:

    oSheet.Shapes.AddPicture(Me.Picturebox1.image , False, True, 415, 1, 20, 30)

Но это не работает. Есть ли способ вставить картинку, чтобы превзойти, не используя местоположение?

Answer 1

К сожалению, я почти уверен, что нет способа добавить изображение без использования имени файла.В соответствии с документами MSDN для фигур , по-видимому, отсутствует перегрузка AddPicture, которая требует ничего, кроме строки, чтобы определить, какое изображение вы хотите вставить.

Является лиЦель здесь - добавить изображение, которое вы не обязательно где-то храните на диске (или не знаете, где оно находится)?Если это так, вы можете получить местоположение (путь или URI) изображения с помощью свойства ImageLocation и передать его в AddPicture.Вы также можете сначала сохранить образ на диск, используя Image.Save() и передать новый путь к AddPicture.