烟台网站建设报价,如何建立一个网站分享教程,phpcms网站建设,wordpress附件详情我试图从URL中提取图像并将其嵌入Excel中 .我的Excel表格很简单#xff1a;它包含2列 .第1列具有图像URL . 在第2列中#xff0c;我想嵌入图像 . 我使用以下代码 . 它在第一行工作得非常好#xff0c;我在本地机器上保存了图像并给出了路径#xff0c;但是当尝试直接从URL嵌…我试图从URL中提取图像并将其嵌入Excel中 .我的Excel表格很简单它包含2列 .第1列具有图像URL . 在第2列中我想嵌入图像 . 我使用以下代码 . 它在第一行工作得非常好我在本地机器上保存了图像并给出了路径但是当尝试直接从URL嵌入时它失败了 . 我收到以下错误Error - Run time 1004 , unable to get the insert property for the picture class.我的代码Sub Button1_Click()ActiveSheet.Pictures.Insert(C:\810CfHBPGyL._SX425_.jpg).SelectUpdateby Extendoffice 20161116Dim Pshp As ShapeDim xRg As RangeDim xCol As LongOn Error Resume NextApplication.ScreenUpdating FalseSet Rng ActiveSheet.Range(A2:A3)MsgBox Step1For Each cell In Rngfilenam cellMsgBox Step2 cellActiveSheet.Pictures.Insert(filenam).SelectMsgBox Step3Set Pshp Selection.ShapeRange.Item(1)MsgBox Step4 PshpIf Pshp Is Nothing Then GoTo labxCol cell.Column 1Set xRg Cells(cell.Row, xCol)With Pshp.LockAspectRatio msoFalse.Width 80.Height 80.Top xRg.Top (xRg.Height - .Height) / 2.Left xRg.Left (xRg.Width - .Width) / 2End Withlab:Set Pshp NothingRange(A2).SelectNextApplication.ScreenUpdating TrueEnd Sub这可能是Excel VBA引用的问题吗
