Deepseek首秀:在Excel中生成Vba用于将复制的图片居中粘贴

之前为了需求:“将在Excel中将剪切板中的图片或选中的单一图片，复制到选中的单元格或单元格组成的区域中”。为了实现这一要求，通两个月的自学vba。最终是写出了一版能用的vba，也就能用而已。

不过借助Deepseek半天的时间也制作出一版vba,虽然也是初版也是新手，中间有不少的不足。不过与自己之前写的有不小的差距，一个是考虑的更全面，另一个是更简单明了。下边是我的初始输入与最终结果！给自己一个鼓励，给他人一个分享！

####初始输入###

在Excel中将剪切板中的图片或选中的单一图片，复制到选中的单元格或单元格组成的区域中。

要求如下：

1、要求图片大小“锁定纵横比”。

2、首先判断图片是否存在旋转，即旋转角度不等于0：

2.1、图片未存在旋转情况：

图片大小根据选中的单元格或单元格组成的区域的宽高比进行调整：如果选中的单元格或单元格组成的区域的宽高比 大于等于 图片的宽高比，则图片的高等于选中的单元格或单元格组成的区域的高*0.98；如果选中的单元格或单元格组成的区域的宽高比 小于 图片的宽高比，则图片的宽等于选中的单元格或单元格组成的区域的宽*0.98。

2.2、图片存在旋转情况：

首先，图片的宽高比对调。即比值由原先的宽比高 ，改为高比宽。

然后，图片大小调整：如果选中的单元格或单元格组成的区域的宽高比 大于等于 图片的宽高比，则图片的宽等于选中的单元格或单元格组成的区域的高*0.98；如果选中的单元格或单元格组成的区域的宽高比 小于 图片的宽高比，则图片的高等于选中的单元格或单元格组成的区域的宽*0.98。

3、图片的属性选中”随单元格改变位置和大小“。

4、图片的位置在选中的单元格或单元格组成的区域的中心位置。

请提供一段VBA代码，并对代码逐行进行注释，同时说明代码的使用方法。

###Excel###

###Deepseek###