MacのExcelでurlから画像を挿入する

Question

MacのExcelでurlから画像を挿入しようとしています。 URLはセル12にあり、URLを変換して、セルをn2に配置し、1500個のセルを配置する必要があります。私はこれを行う方法を理解することはできません。問題これらのオプションの

Answer 1

一つの

スクリーンショットは、あなたのために働く必要があります。単にあなたのURLをCドライブからのパス..

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