Excel VBA 调整图片高度宽度等于所在单元格高度宽度

发布时间:2016-12-6 18:14:01 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"Excel VBA 调整图片高度宽度等于所在单元格高度宽度",主要涉及到Excel VBA 调整图片高度宽度等于所在单元格高度宽度方面的内容,对于Excel VBA 调整图片高度宽度等于所在单元格高度宽度感兴趣的同学可以参考一下。

'调整图片高度宽度等于单元格高度宽度 Sub setpic() Dim Pic As Shape     For Each Pic In Sheet5.Shapes         Pic.LockAspectRatio = msoFalse         Pic.Top = Pic.TopLeftCell.Top         Pic.Left = Pic.TopLeftCell.Left         Pic.Height = Pic.TopLeftCell.Height         Pic.Width = Pic.TopLeftCell.Width     Next End Sub ---------------------------------------------------------------------------- Sub setpic1() Dim p As Shape, d$   For Each p In Sheet5.Shapes     p.LockAspectRatio = msoFalse     d = p.TopLeftCell.Address     p.Height = Range(d).Height     p.Width = Range(d).Width     p.Top = Range(d).Top     p.Left = Range(d).Left   Next End Sub

上一篇:经济学
下一篇:jsp include指令

相关文章

相关评论