vba - 在 Excel 用户表单中嵌入来自 URL 的图像

Question

我对 VBA 相当陌生，一直在尝试解决这个问题，但没有任何运气。

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

然而，我遇到困难的是，我需要在用户表单中嵌入来自网址的产品图像(例如 https://image.shutterstock.com/z/stock-photo-coffee-cup-and-coffee-beans-on-table-261745823.jpg )，以便文件能够从计算机移植到计算机而不会丢失图像加载到电子表格上。

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

我发现了与我需要的类似的问题 here & here & here 。这些问题要么没有得到解答，要么我不确定如何使它们满足我的需求。

这是我现在拥有的代码，但是它出现了运行时 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 对象错误。您能指定哪一行代码给您带来错误吗？

我会说这个链接Inserting an Online Picture to Excel with VBA拥有您真正需要的一切。

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

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