[已解决]用VBA把图片移动到指定位置

szy321

在示例文件中的CommandButton1按钮中添加代码，把里面的图片移动到指定的坐标位置
怎么做呢？？

Book1.zip (107.13 KB, 下载次数: 169)

2014-5-14 12:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-5-14 12:52

1.     With Me.Shapes(1)
   
2.         .Left = 20
   
3.         .Top = 50
   
4.     End With

复制代码

跳转到最佳答案楼层

hwc2ycy

1.     With Me.Shapes(1)
   
2.         .Left = 20
   
3.         .Top = 50
   
4.     End With

复制代码

hwc2ycy

不知道楼主所说的20，50是针对于整个屏幕还是只是当前工作表窗口内。

szy321

hwc2ycy 发表于 2014-5-14 12:52

图片的名称就是1，是吗？
如果有多个图片呢，名称就按顺序1,2,3,4……排下去吗？那是不是要自己记着图片的顺序才行。

（20,50）是针对工作表窗口的
加入要针对整个屏幕怎么做？

hwc2ycy

这里用me.shapes(1)是取巧的做法。

hwc2ycy

我差点忘了，这个是针对工作表内单元格区域的坐标。

hwc2ycy

Left 返回或设置 Single 值，它代表从对象左边缘到工作表的 A 列左边缘或到图表上的图表区左边缘的距离（以磅为单位）。
Top 返回或设置一个 Single 值，它代表形状范围内最上面的形状的上边缘到工作表上边缘的距离（以磅为单位）。

szy321

hwc2ycy 发表于 2014-5-14 13:01
这里用me.shapes(1)是取巧的做法。

如果不用取巧的呢，对任意一张图片呢？

hwc2ycy

szy321 发表于 2014-5-14 13:25
如果不用取巧的呢，对任意一张图片呢？

用名字来引用。

1.     With Me.Shapes("Picture 1")
   
2.         .Left = 50
   
3.         .Top = 20
   
4.     End With

复制代码

hwc2ycy

1.     With Me.Pictures("Picture 1")
   
2.         .Left = 50
   
3.         .Top = 20
   
4.     End With

复制代码