vba如何有没有办法获取到Omath公式的宽度？

zhanglei1371

word中，vba如何有没有办法获取到Omath公式的宽度？
也就是word中自带的插入==>公式==>随便插入一个，怎么获取到这个插入公式的width，或者相当于多少字符的宽度也行？
谢谢！

感谢batmanbbs，已解决！

过客fppt

首先选中该公式，运行以下代码转化为图片

1. Sub 将选中内容复制为图片()
   
2.         With Selection
   
3.             .CopyAsPicture
   
4.             .PasteSpecial DataType:=wdPasteMetafilePicture
   
5.         End With
   
6. End Sub
   

复制代码

接着选中该图片，再运行以下代码获取高度

1. 
   
2.             高度 = Selection.InlineShapes.Height
   
3.             宽度 = Selection.InlineShapes.Width

复制代码

zhanglei1371

过客fppt 发表于 2023-8-7 15:12
首先选中该公式，运行以下代码转化为图片

这个对公式似乎不太好使，因为公式粘贴后会自动拉满页面。这样获取宽度都是一样了。

过客fppt

zhanglei1371 发表于 2023-8-7 17:11
这个对公式似乎不太好使，因为公式粘贴后会自动拉满页面。这样获取宽度都是一样了。

对啊，这个问题也困扰了我好久，不知道怎么解决它，只能用来获取高度了

batmanbbs

注意：公式需单独一行，如果有其他文字，需要去掉其他文字磅数

zhanglei1371

batmanbbs 发表于 2023-8-7 17:39
注意：公式需单独一行，如果有其他文字，需要去掉其他文字磅数

这个思路非常精妙，学习了

sylun

也可试试通过GetPoint方法获取公式区域的大小，其返回值（像素）与缩放比例相关

batmanbbs

sylun 发表于 2023-8-20 20:17
也可试试通过GetPoint方法获取公式区域的大小，其返回值（像素）与缩放比例相关

不错，这个方法更快，不过如果公式分成两行能获得准确的宽度吗

sylun

batmanbbs 发表于 2023-8-20 21:19
不错，这个方法更快，不过如果公式分成两行能获得准确的宽度吗

感觉应该可以，如可以通过依次比对公式区域各字符的getpoint返回值中的第一个参数来确定公式自动换行字符位置，再与公式第一个字符返回值的第一个参数比较，应该就是第一行的宽度吧？也许有特殊情况，我平时没有用到公式，不好假设