將250張圖片捕捉到每個單元格一張圖片

我正在製作一份電子表格和一名同事粘貼超過250張圖片。這些圖像沒有與它們對應的單元對齊，因此對單元格的任何操作都會導致圖像位於錯誤的位置。將250張圖片捕捉到每個單元格一張圖片

我正在尋找一種將所有圖像粘貼到單元格中的方法，並讓它們成爲單元格的一部分，就像我粘貼文本列表一樣。

在一個理想的世界我希望它的工作是這樣的：

將使用數組中的圖像的關鍵數量的數組
所有圖像，將其分配到相應的手機號碼
解析相應的單元格的尺寸和尺寸適用於圖像

這是我曾嘗試：

Sub movePics() 
    Dim picCounter As Long 

    picCounter = 0 
    For Each s In ActiveSheet.Shapes 
    picCounter = picCounter + 1 
    With s 
     .Left = 100 
     .Top = ActiveSheet.Rows(picCounter).Top 
     .Placement = xlMoveAndSize 
    End With 
    Next 
End Sub

來源

2016-07-27 D. B.

在一個理想的世界我希望它的工作是這樣的：1.將使用數組中的圖像的關鍵數量的數組2.所有圖像，將其分配到相應的手機號碼3.解析相應單元格的尺寸，並將尺寸應用於圖像。 –

如果您向我們展示您已嘗試完成此操作，您將獲得更多幫助。 SO不是「我的代碼」網站。您有這些步驟，現在編寫代碼併發回您在任何步驟中卡住的地方。 –

看編輯，加了我試過的。 –

這個快速循環將遍歷所有形狀並將它們設置爲「使用單元格移動和調整大小」。

Sub Testing() 

    For x = 1 To ActiveSheet.Shapes.Count 
     ActiveSheet.Shapes(x).Placement = xlMoveAndSize 
    Next x 

End Sub

來源

2016-07-27 19:43:56 Chrismas007

如果這適用於您，請接受一個綠色複選標記。 – Chrismas007

將250張圖片捕捉到每個單元格一張圖片

回答

相關問題