正文

Visio 统一图形尺寸的宏2009-01-12 16:15:00

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/yuqiexing/40459.html

分享到:

Sub Macro1()

    Dim width As String
    Dim height As String

    If ActiveWindow.selection.Count = 0 Then Exit Sub

    Dim shape1 As Visio.shape
    Set shape1 = ActiveWindow.selection.Item(1)

    height = shape1.CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU
    width = shape1.CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU
   
    For i = 2 To ActiveWindow.selection.Count Step 1
    Set shape1 = ActiveWindow.selection.Item(i)
    shape1.CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU = width
    shape1.CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU = height
   Next

End Sub

阅读(3258) | 评论(0)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

暂无评论
您需要登录后才能评论,请 登录 或者 注册