[已解决]如何用宏将表格里的图片恢复原图大小。

菠萝无敌

怎么使用宏将单元格缩小的图片，重设图片大小。恢复原大。（表格里有好多图片。）
不知为什么。我录制宏，重设图片大小。老是没作用。
麻烦帮我弄一个宏。将表格里所有的图片都重设恢复原大。

新建 Microsoft Excel 工作表.rar (93.36 KB, 下载次数: 4)

2015-1-30 22:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2015-1-31 10:57

Sub test()
    Dim shp As Shape, l, t, w, h, x
    l = 0: t = 0: w = 480: h = 320: x = 20    '间隔

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
            t = t + x '每次的间隔
            With shp
                .Top = t: .Left = l: .Width = w: .Height = h
            End With
            t = t + h '高度累计增加
        End If
    Next shp
End Sub
2.rar (103.92 KB, 下载次数: 27)

2015-1-31 10:57 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

建议
1）上传附件
2）有3个图片就可以了
3）给出运行后的结果效果

爱疯

1.定位，对象，选中所有图片。

2.右击，设置大小。

菠萝无敌

爱疯 发表于 2015-1-30 21:30
建议
1）上传附件
2）有3个图片就可以了

传了个附件。就是表格里有图片。
我要将表格里的所有图片都恢复原大。

爱疯

Sub test()
    Dim shp As Shape, l, t, w, h, x
    l = 0: t = 0: w = 480: h = 320: x = 20    '间隔

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
            t = t + x '每次的间隔
            With shp
                .Top = t: .Left = l: .Width = w: .Height = h
            End With
            t = t + h '高度累计增加
        End If
    Next shp
End Sub
2.rar (103.92 KB, 下载次数: 27)

2015-1-31 10:57 上传

点击文件名下载附件