Вставить изображение в ячейку excel [закрыто]

есть более быстрый способ (https://www.youtube.com/watch?v=TSjEMLBAYVc):

1. вставить изображение (Ctrl+V) в excel.
2. проверка" инструменты изображения -> выравнивание -> привязка к сетке " проверяется
3. измените размер изображения в соответствии с ячейкой (или количеством ячеек)
4. щелкните правой кнопкой мыши на изображении и проверьте " размер и свойства... - >Свойства - > перемещение и размер с ячейками"

просто зайдите в Google docs и вставьте это как формулу, где URL-это ссылка на ваш img

      =image("URL", 1)

после этого, из параметров google docs, Скачать для excel, и вы будете иметь свое изображение на ячейке РЕДАКТИРОВАТЬ В комментариях вам не нужно держать URL-адрес изображения живым так долго, просто достаточно долго, чтобы excel мог его загрузить. Тогда он останется встроенным в файл.

в то время как моя рекомендация состоит в том, чтобы воспользоваться преимуществами автоматизации, доступной из Doality.com в частности, менеджер изображений для Excel

следующий код VBA должен соответствовать вашим критериям. Удачи Вам!

добавить кнопку управления в Книгу Excel, а затем дважды нажмите на кнопку, чтобы добраться до кода VBA-->

Sub Button1_Click()
    Dim filePathCell As Range
    Dim imageLocationCell As Range
    Dim filePath As String

    Set filePathCell = Application.InputBox(Prompt:= _
        "Please select the cell that contains the reference path to your image file", _
            Title:="Specify File Path", Type:=8)

     Set imageLocationCell = Application.InputBox(Prompt:= _
        "Please select the cell where you would like your image to be inserted.", _
            Title:="Image Cell", Type:=8)

    If filePathCell Is Nothing Then
       MsgBox ("Please make a selection for file path")
       Exit Sub
    Else
      If filePathCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell that contains the file location")
        Exit Sub
      Else
        filePath = Cells(filePathCell.Row, filePathCell.Column).Value
      End If
    End If

    If imageLocationCell Is Nothing Then
       MsgBox ("Please make a selection for image location")
       Exit Sub
    Else
      If imageLocationCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell where you want the image to be populated")
        Exit Sub
      Else
        InsertPic filePath, imageLocationCell
        Exit Sub
      End If
    End If
End Sub

затем создайте свой метод вставки следующим образом:

Private Sub InsertPic(filePath As String, ByVal insertCell As Range)
    Dim xlShapes As Shapes
    Dim xlPic As Shape
    Dim xlWorksheet As Worksheet

    If IsEmpty(filePath) Or Len(Dir(filePath)) = 0 Then
        MsgBox ("File Path invalid")
        Exit Sub
    End If

    Set xlWorksheet = ActiveSheet

    Set xlPic = xlWorksheet.Shapes.AddPicture(filePath, msoFalse, msoCTrue, insertCell.top, insertCell.left, insertCell.width, insertCell.height)
    xlPic.LockAspectRatio = msoCTrue
End Sub

теперь мы можем добавить изображение, чтобы преуспеть непосредственно и легко. Просто следуйте этим инструкциям:

1. перейдите на вкладку Вставка.
2. нажмите на опцию картинки (она находится в группе иллюстраций).
3. В диалоговом окне вставка рисунка найдите фотографии, которые вы хотите вставить в ячейку в Excel.
4. нажмите на кнопку Вставить.
5. изменить размер изображение / изображение так, что оно сможет приспосабливать совершенно внутри клетка.
6. поместите изображение в ячейку. Классный способ сделать это-сначала нажмите клавишу ALT, а затем переместите изображение с помощью мыши. Оно будет привязать и организовать себя с границей ячейки, как только он приходит близкий ему.

---

Если у вас есть несколько изображений, вы можете выбрать и вставить сразу все изображения (как показано в шаге 4).

вы также можете изменить размер изображения выбрав его и перетащив края. В случае логотипов или изображений продуктов вы можете сохранить соотношение сторон изображения нетронутым. Чтобы сохранить пропорции, использовать углы изображения, чтобы изменить размер.

---

когда вы помещаете изображение в ячейку с помощью описанных выше шагов, оно не будет прилипать к ячейке в случае изменения размера, фильтрации или скрытия ячеек. Если вы хотите, чтобы изображение прилипло к ячейке, вам нужно заблокировать изображение в ячейке, в которую оно помещено.

To для этого необходимо выполнить дополнительные действия, как показано ниже.

1. щелкните правой кнопкой мыши на изображении и выберите Формат изображения.
2. на панели формат изображения выберите размер и свойства и с помощью параметры в свойствах выберите "переместить и размер с ячейками".

теперь вы можете перемещать ячейки, фильтровать или скрывать их, и изображение также будет переместить/фильтр/скрыть.

---

Примечание:

этот ответ был взят из этой ссылки: вставить картинку в ячейку в Excel.

вы можете сделать это менее чем за минуту с Google Drive (и бесплатно, без суеты)

• массовая загрузка всех ваших изображений imgur.com

• скопируйте ссылки на все изображения вместе, приложенные С.формат jpg. Только imgur позволяет копировать все ссылки на изображения вместе, сделать это с помощью вкладки изображения в правом верхнем углу.

• используйте http://TextMechanic.co Чтобы добавить и добавить каждую строку с этим: Префикс:=image(" и Суффикс : ", 1)

Так, что это выглядит так =image("URL", 1)

• Скопировать Все

• вставьте его в таблицу Google

• вуаля!

ссылки :

http://www.labnol.org/internet/images-in-google-spreadsheet/18167/

https://support.google.com/drive/bin/answer.py?hl=en&answer=87037&from=1068225&rd=1