资源工具

办公相关

    For Each Field In ActiveDocument.Fields
        If Trim(Field.Code) = "EMBED Equation.DSMT4" Then
            With Field.InlineShape
                .LockAspectRatio = msoFalse
                .ScaleWidth = 100
                .ScaleHeight = 100
            End With
        End If
    Next Field
End Sub

学习相关


娱乐相关


其他

posted on 2020-12-07 11:08  pipony  阅读(200)  评论(0)    收藏  举报