Excelでは、マクロとソートで画像のサムネイルを作成します。

Question

画像のフルパスを含む列を持つExcelファイルがあります。私は、次のマクロを使用して、各画像のサムネイルの列を作成しました：

Sub InsertPicFromFile() 
Dim cCell As Range 
For Each cCell In Selection 
If cCell.Value <> "" Then 
On Error Resume Next 
ActiveSheet.Shapes.AddPicture _ 
    Filename:=cCell.Value, LinkToFile:=msoFalse, _ 
    SaveWithDocument:=msoTrue, _ 
    Left:=cCell.Offset(ColumnOffset:=1).Left, Top:=cCell.Top, _ 
    Width:=cCell.Height, Height:=200 
End If 
Next cCell 
End Sub 

それが正常に動作しますが、これらの画像は、細胞（またはそのような何か）「内部」ではないので、私はすべての行を並べ替えることはできません。基本的に、イメージは親行に基づく順序ではありません。

可能かどうかわかりませんが、Excelでサムネイルを作成する方法はありますか？

Answer 1

イメージをソートするには、各イメージが関連するセル境界内にあることを確認する必要があります。これは、画像のサイズ（幅/高さ）が保持するセルの大きさと同じか小さいかを確認することで実現できます。あなたのコードでは、以下にあなたのコードの最後の文を変更する必要があります： -

Width:=cCell.Offset(0, 1).Width, Height:=cCell.Height 

あなたは、親の行に基づいてソートを行うことができます。