250画像を1つの画像に1つの画像に貼り付けます

Question

私は仕事中にスプレッドシートを作成しており、同僚は250画像上にカラムの上に貼り付けています。イメージは対応するセルにスナップされないため、セルの操作によってイメージが間違った場所に表示されます。

私は、テキストのリストを貼り付けただけの場合と同様に、細胞内にすべての画像を貼り付け、それらは、細胞の一部で持つ方法を探しています。私はそれがこのように動作します望んでいるだろう理想的な世界で

：

1. 置き、アレイ内の画像のキー番号を使用してアレイ
2. 内のすべての画像は、対応するセル番号に割り当て
   ：
3. は、これは私が試みているものであり、対応するセルの大きさを解析し、画像

に寸法を適用します

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 

Answer 1

このクイックループは、すべての図形を移動すると、彼らは「細胞を移動し、サイズ」に設定します。

Sub Testing() 

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

End Sub