首页  :: 新随笔  :: 管理

EXCEL 将网络图片地址插入为锁定的图片单元格宏

Posted on 2018-05-14 23:49  季枫  阅读(771)  评论(0编辑  收藏  举报
Sub InsertPic2(ByVal 图片链接 As String, ByVal 插入图片表名 As String, ByVal 插入图片单元格地址 As String)
    On Error Resume Next
    Dim rng As Range
    Set rng = Sheets(插入图片表名).Range(插入图片单元格地址)
    With Sheets(插入图片表名).Shapes.AddShape(msoShapeRectangle, rng.Left + 1.5, rng.Top + 1.5, rng.Width - 3, rng.Height - 3).Select '插入一个矩形框
        Selection.ShapeRange.Fill.UserPicture 图片链接 '给框内填充图片
        Selection.ShapeRange.Line.Visible = msoFalse '无边框
        If Err.Number <> 0 Then
            Selection.Delete
            Err.Clear
        End If
    End With
    Set rng = Nothing
End Sub

Sub 调用()

    For Each rng In Range([a3], Cells(Application.CountA(Columns(1)), 1))
    
         Call InsertPic2(rng, ActiveSheet.Name, "c" & rng.Row)
     Next
End Sub

  使用VBA在EXCEL中插入图片自定义函数(网络URL/本地URL)

https://blog.csdn.net/dengnihuilaiwpl/article/details/78740945

Excel单元格内插入图片(VBA创建函数,根据图片名称批量插入)

https://blog.csdn.net/yujiaerzong/article/details/79624870

Excel单元格内插入图片(VBA创建函数,根据图片名称批量插入,中间有空格)

https://blog.csdn.net/yujiaerzong/article/details/79624870

智读 | 成都会领科技有限公司官网 | 智读App下载 | 每天听本书的博客 | |