在Excel Userform中嵌入URL中的图像

Question

我对VBA很新，一直试图解决这个问题，但没有任何运气。

我正在尝试创建产品目录并构建了一个用户表单，以允许在电子表格的第一个空白行中输入新产品。 到现在为止还挺好。

然而，我遇到的问题是，我需要在用户表单中嵌入来自URL的产品图像（例如https://image.shutterstock.com/z/stock-photo-coffee-cup-and-coffee-beans -on-table-261745823.jpg ）这样文件就可以从计算机移植到计算机而不会丢失已加载到电子表格中的图像。

理想情况下，我不想将URL本身插入到电子表格中。 当用户点击提交时，我希望用户表单从在线提取图像并将其插入电子表格第一个空白行的A列并将其调整为特定的宽度/高度。 （待定）。

我发现问题类似于我在这里和这里和这里所需要的 。 问题要么没有得到解答，要么我不确定如何使它们符合我的需要。

这是我现在的代码，但它提出了运行时424对象错误，我显然错过了一些东西> <

Private Sub cmdSubmitForm_Click()

Dim StorePrice As Currency, SupplierPrice As Currency
Dim pic As String 'file path of pic

Dim LastRow As Long, ws As Worksheet
Set ws = Sheets("Pricing")

'Finds the last blank row
LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1

StorePrice = txtStorePrice.value
SupplierPrice= txtSupplier.Price.Value

ws.Range("B" & LastRow).Value = txtProductName.Text
ws.Range("C" & LastRow).Value = txtStorePrice.Text
ws.Range("D" & LastRow).Value = cboCategory.Text
ws.Range("E" & LastRow).Value = cboSubCategory.Text
ws.Range("F" & LastRow).Value = txtStoreLink.Text
ws.Range("G" & LastRow).Value = txtSupplierName.text
ws.Range("H" & LastRow).Value = txtSupplierPrice.text
ws.Range("I" & LastRow).Value = txtSupplierLink.text
ws.Range("J" & LastRow).Value = StorePrice- SupplierPrice
ws.Range("K" & LastRow).Value = txtNotes.Text

ws.Range("A" & LastRow).Value = Pictures.Insert(txtImgUrl.Value)


'handler:
'MsgBox "Error"

End Sub

如果有人对如何解决这个问题有任何想法我会非常感激!!!!

提前致谢 ：）

Answer 1

我不确定为什么你有运行时424对象错误。 你能指定哪行代码会给你错误吗？

我想说这个链接使用VBA将在线图片插入Excel可以满足您的所有需求。

您应该为图片声明一个对象变量

Dim myPicture As Picture 'embedded pic

每次插入图片时重复此操作：

您需要通过设置myPicture对象变量的值将图片插入工作表。 在你的情况下，它将是这样的：

Set myPicture = Pictures.Insert(txtImgUrl.Value)

然后添加一些有关如何在工作表上定位此图片的详细信息

With myPicture
    .ShapeRange.LockAspectRatio = msoFalse 'Unlock aspect ratio
    .Width = ws.Range("A" & LastRow).Width 'Picture width equal to cell width
    .Height = ws.Range("A" & LastRow).Height 'Picture height equal to cell height
    .Top = Rows(ws.Range("A" & LastRow).Row).Top 'Picture aligned to the top edge of the cell
    .Left = Columns(ws.Range("A" & LastRow).Column).Left 'Picture aligned to the left edge of the cell
End With