[已解决]看看如何用vba移动图片

zxc1152468

看看如何用vba移动图片,要求移动到B2,要求用vba做 cr0CMZQK.rar (5.66 KB, 下载次数: 37)

2010-8-26 10:06 上传

点击文件名下载附件
看看如何用vba移动图片
这个搞错了，请看下面的

[此贴子已经被作者于2010-8-26 10:43:44编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2010-8-26 11:26

QUOTE:

以下是引用amulee在2010-8-26 10:50:00的发言：
Sub MyMove()
    Shapes("picture 3").Top = [B2].Top
    Shapes("picture 3").Left = [B2].Left
End Sub

Sub MyMove()
    Shapes("picture 3").Top = [B2].Top    '  设置图片上顶点坐标与B2单元格上顶点对齐
    Shapes("picture 3").Left = [B2].Left     '  设置图片左顶点坐标与B2单元格左顶点对齐
End Sub

跳转到最佳答案楼层

amulee

楼主态度不端正，提问贴还要别人花钱买。

zxc1152468

[em01] oZyfdjEi.rar (5.66 KB, 下载次数: 124)

2010-8-26 10:42 上传

点击文件名下载附件

看看如何用vba移动图片到B2

[此贴子已经被作者于2010-8-26 10:42:56编辑过]

amulee

Sub MyMove()
    Shapes("picture 3").Top = [B2].Top
    Shapes("picture 3").Left = [B2].Left
End Sub

amulee

QUOTE:

以下是引用amulee在2010-8-26 10:50:00的发言：
Sub MyMove()
    Shapes("picture 3").Top = [B2].Top
    Shapes("picture 3").Left = [B2].Left
End Sub

Sub MyMove()
    Shapes("picture 3").Top = [B2].Top    '  设置图片上顶点坐标与B2单元格上顶点对齐
    Shapes("picture 3").Left = [B2].Left     '  设置图片左顶点坐标与B2单元格左顶点对齐
End Sub