在Excel中插入一个图片为Mac 2016

Question

我试图插入一个图片从一个URL在Excel中的Mac。该网址位于单元格12中，需要转换网址并将单元格放置在单元格n2中，以此类推1500个单元格。我无法弄清楚如何做到这一点。

问题

Answer 1

这些选项之一的屏幕截图应该为你工作。简单地改变从C驱动器到你的URL路径..

Sub InsertPics() 
Dim fPath As String, fName As String 
Dim r As Range, rng As Range 

Application.ScreenUpdating = False 
fPath = "C:\Users\Public\Pictures\Sample Pictures\" 
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) 
i = 1 

For Each r In rng 
    fName = Dir(fPath) 
    Do While fName <> "" 
     If fName = r.Value Then 
      With ActiveSheet.Pictures.Insert(fPath & fName) 
       .ShapeRange.LockAspectRatio = msoTrue 
       Set px = .ShapeRange 
       If .ShapeRange.Width > Rows(i).Columns(2).Width Then .ShapeRange.Width = Columns(2).Width 
        With Cells(i, 2) 
         px.Top = .Top 
         px.Left = .Left 
         .RowHeight = px.Height 
        End With 
      End With 
     End If 
     fName = Dir 
    Loop 
    i = i + 1 
Next r 
Application.ScreenUpdating = True 
End Sub 

' Note: you need the file extension, such as ',jpg', or whatever you are using, so you can match on that. 

Sub Insert() 

    Dim strFolder As String 
    Dim strFileName As String 
    Dim objPic As Picture 
    Dim rngCell As Range 

    strFolder = "C:\Users\Public\Pictures\Sample Pictures\" 'change the path accordingly 
    If Right(strFolder, 1) <> "\" Then 
     strFolder = strFolder & "\" 
    End If 

    Set rngCell = Range("E1") 'starting cell 

    strFileName = Dir(strFolder & "*.jpg", vbNormal) 'filter for .png files 

    Do While Len(strFileName) > 0 
     Set objPic = ActiveSheet.Pictures.Insert(strFolder & strFileName) 
     With objPic 
      .Left = rngCell.Left 
      .Top = rngCell.Top 
      .Height = rngCell.RowHeight 
      .Placement = xlMoveAndSize 
     End With 
     Set rngCell = rngCell.Offset(1, 0) 
     strFileName = Dir 
    Loop 

End Sub