如何获得一个单元格内的所有图片？
我有一个电子表格，每个单元格（从1到5）中都有可变数量的图片（图标），每个图片都有自己的超链接。 对于每个单元格，我需要确定其中有多less图片，然后在单元格旁边填写超链接名称/地址。
我需要解决的最重要的部分是如何识别和访问任何给定单元格中的所有图片。 那么获取超链接地址应该很容易。
如果能够更容易地解决问题并且循环播放每一张照片并返回它的位置 – 如果可能的话，我可以把这个问题放在首位。
假设你将运行这个macros的activesheet你的形状位于…
还假设TopLeft corner形状的TopLeft corner是您的形状细胞位置的参考点…
下面的子程序应该为您提供完整的解决scheme或者进行进一步的调整。
Sub qSolution() Dim SHP As Shape Dim rowSHP As Long Dim colSHP As Long For Each SHP In ActiveSheet.Shapes rowSHP = SHP.TopLeftCell.Row colSHP = SHP.TopLeftCell.Column If Cells(rowSHP, Columns.Count).End(xlToLeft) <= colSHP Then Cells(rowSHP, colSHP + 1) = SHP.Hyperlink.Address Else Cells(rowSHP, Columns.Count).End(xlToLeft).Offset(0, 1) = _ SHP.Hyperlink.Address End If Next End Sub