Excel，用macros创build图像的缩略图并进行sorting

我有一个包含图像完整path的列的Excel文件。 我使用下面的macros创build了每个图像缩略图的列：

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 

它工作正常，但我不能sorting任何行，因为这些图像不是“内部”一个单元格（或类似的东西）。 基本上图像不是基于父行的顺序。

我不知道是否有可能，但有没有其他方法可以在Excel中创build缩略图？

Answer 1

为了对图像进行sorting，您需要确保每个图像都在其相关的单元格边界内。 您可以通过确保图像大小（宽度/高度）等于或小于其保存单元来完成此操作。 在您的代码中，您需要将您的代码的最后一个声明更改为以下内容：

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

然后可以根据父行进行sorting。