VBA擅長形狀

Question

我用一個小的子程序通過

ActiveSheet.Pictures.Insert(URL).Select 

能正常工作與Excel 2003（Windows）中插入圖片到我的表，但不與Excel 2011（蘋果機）工作了。

所以我修改 （如提出http://www.launchexcel.com/google-maps-excel-demo/）我的子程序， 但子程序在

theShape.Fill.UserPicture URL 

停止與錯誤消息

「-2147024894（80070002）Fehler DER了Methode UserPicture DES Objekts FillFormat 「

矩形是綠色的！

Sub Q1() 

Dim wks As Worksheet 
Dim URL As String 
Dim i As Long 
Dim lastRow As Long 
Dim theShape As Shape 
Dim pasteCell As Range 

' Used Worksheet 
Set wks = Worksheets("Blatt1") 

' Delete already existing shapes 
For Each theShape In wks.Shapes 
     theShape.Delete 
Next theShape 

' Check all existing rows in Column K 
lastRow = Cells(Rows.Count, "K").End(xlUp).Row 
For i = 2 To lastRow 

' the URLs are already computed and stored in column K 
URL = wks.Range("K" & i).Value 

' try to put the images in column L 
Set pasteCell = wks.Range("L" & i) 
pasteCell.Select 

' Create a Shape for putting the Image into 
' ActiveSheet.Pictures.Insert(URL).Select is deprecated and does not work any more!!! 
Set theShape = wks.Shapes.AddShape(msoShapeRectangle, pasteCell.Left, pasteCell.Top, 200, 200) 

' fill the shape with the image after greening 
theShape.Fill.BackColor.RGB = RGB(0, 255, 0) 
theShape.Fill.UserPicture URL 

Next i 

End Sub 

任何建議或提示？也許我是盲目的蝙蝠....

Answer 1

你試過沿此線語法的形狀設置爲URL：

Sub Picadder() 

Dim Pic As Shape 

Set Pic = ActiveSheet.Shapes.AddPicture("http://stackoverflow.com/content/stackoverflow/img/apple-touch-icon.png", msoFalse, msoTrue, 0, 0, 100, 100) 

End Sub 

此代碼，當適合於你的努力，可能看起來是沿着此線：

Sub Q1() 

Dim wks As Worksheet 
Dim URL As String 
Dim i As Long 
Dim lastRow As Long 
Dim theShape As Shape 
Dim pasteCell As Range 

' Used Worksheet 
Set wks = Worksheets("Blatt1") 

' Delete already existing shapes 
For Each theShape In wks.Shapes 
     theShape.Delete 
Next theShape 

' Check all existing rows in Column K 
lastRow = Cells(Rows.Count, "K").End(xlUp).Row 
For i = 2 To lastRow 

' the URLs are already computed and stored in column K 
URL = wks.Range("K" & i).Value 

' try to put the images in column L 
Set pasteCell = wks.Range("L" & i) 
pasteCell.Select 

' Create a Shape for putting the Image into 
' ActiveSheet.Pictures.Insert(URL).Select is deprecated and does not work any more!!! 
Set theShape = wks.Shapes.AddPicture(URL, pasteCell.Left, pasteCell.Top, 200, 200) 

' Set shape image backcolor. 
theShape.Fill.BackColor.RGB = RGB(0, 255, 0) 

Next i 

End Sub 

您的網址需要被正確格式化 - 我必須對我的URL中使用的報價爲初始片段有效地得到它的功能，但它可能是一個解決辦法。

對於Mac-Excel 2011，在他的博客上有一個由Michael McLaughlin討論的解決方法。顯然，要將圖像與Mac-Excel 2011中的單元格綁定起來並不容易，即便如此。此外，研究表明，將圖像插入Excel工作簿的問題已被多次提出。它似乎還沒有通過圖像方法迄今在研究中得到解決。因此，解決方法可能是最佳解決方案。

的代碼片段，這是非常密切的適應和邁克爾的博客移植，如下：

Function InsertImageCommentAsWorkAround(title As String, cellAddress As Range) 

    ' Define variables used in the comment. 
    Dim ImageCommentContainer As comment 

    ' Clear any existing comments before adding new ones. 
    Application.ActiveCell.ClearComments 

    ' Define the comment as a local variable and assign the file name from the _ 
    ' _ cellAddress as an input parameter to the comment of a cell at its cellAddress. 

    ' Add a comment. 
    Set ImageCommentContainer = Application.ActiveCell.AddComment 

    ' With the comment, set parameters. 
    With ImageCommentContainer 
    .Text Text:="" 

     'With the shape overlaying the comment, set parameters. 
     With .Shape 
      .Fill.UserPicture (cellAddress.Value) 
      .ScaleHeight 3#, msoFalse, msoScaleFormTopLeft 
      .ScaleWidth 2.4, msoFalse, msoScaleFromTopLeft 
     End With 

    End With 

    InsertImageCommentAsWorkAround = title 

End Function 

我會建議調整的評論集到你的循環，並用它來設置你的圖像到位，使用循環中的形狀格式設置由適應代碼生成的註釋形狀的格式。