Question

VBA如何实现对excel中的图片网址自动插入图片

我之前写的VBA是对excel中所有超链接实现插入图片。现在想要遍历所有单元格，对满足 Left(.Value, 7) = "http://" 条件的单元格插入图片，请问要怎么做呢？

Answer 1

如下代码可插入到指定单元格。
Range("a1").Select '选中A1单元格
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("a1").Left, _
Range("a1").Top, Range("a1").Width, Range("a1").Height).Select
Selection.ShapeRange.Fill.UserPicture picpath '在A1单元格插入图片，大小与单元格一样。
VBA是Visual Basic for
Applications的缩写，是内嵌于office软件中的一个开发模块，这个模块提供程序自主开发，语言基础和VB（Visual
Basic）相似。在Excel的“工具—宏—编辑器”可以打开，也可按Alt+F11打开

追问

你这只能插入一个单元格吧，我想遍历整个表

Answer 2

遍历表格：行和列有个范围吧

Sub addPics()
Dim i, j, k Integer
Dim mxRow, mxCol As Integer
Dim arr As Variant
Application.ScreenUpdating = False
With Sheet1
mxRow = .Cells(.Rows.Count, 9).End(xlUp).Row
mxCol = .Range("I3:AU" & mxRow).Columns.Count
arr = .Range("I3:AU" & mxRow).Value
On Error Resume Next
For j = 1 To mxCol
  For i = LBound(arr) To UBound(arr)
    If left$(arr(i,j),7) = "http://"  Then
      ’调用你with 插入图片的方法,注意这里的i和j是相对的，要换算成实际的cell行列
    End If
    k = k + 1
NextL:
  Next i
Next j

End With
Application.ScreenUpdating = True
End Sub

Answer 3

有滴！看我简介~