在Excel中选中图片的代码如下：
```
ActiveSheet.Shapes("Picture 1").Select
```
如果想要调整图片大小，可以使用以下代码：
```
Selection.ShapeRange.IncrementLeft 132#
Selection.ShapeRange.IncrementTop 54.75
Selection.ShapeRange.ScaleWidth 3.1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 3.1, msoFalse, msoScaleFromTopLeft
```
要录制VBA代码来自动执行这些操作，首先插入一个图片，并打开“工具-宏-录制新宏”。然后手动进行一次对图片进行的操作，然后停止录制。这样就会得到一个现成的VBA代码供你使用。
手机性能天梯图
显卡天梯图
CPU天梯图
电源天梯图
固态硬盘天梯图
新品日历