powerpoint vba普通文本中包含公式 怎么获取公式ID
时间: 2023-11-17 21:05:34 浏览: 36
可以使用以下VBA代码获取PowerPoint中普通文本中包含的公式的ID:
```VBA
Sub GetFormulaID()
Dim sld As Slide
Dim shp As Shape
Dim i As Long
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
For i = 1 To shp.TextFrame.TextRange.Characters.Count
If shp.TextFrame.TextRange.Characters(i, 1).Font.Name = "Cambria Math" Then
Debug.Print shp.TextFrame.TextRange.Characters(i, 1).ActionSettings(ppMouseClick).Hyperlink.SubAddress
End If
Next i
End If
Next shp
Next sld
End Sub
```
这个代码将遍历当前演示文稿中的所有幻灯片和形状,并检查每个形状的文本框中的每个字符,如果字符的字体是"Cambria Math",则打印出该字符的超链接子地址,即公式的ID。请注意,此代码仅适用于使用Cambria Math字体编写的公式。如果您使用其他字体编写公式,则需要相应地更改代码。
相关推荐
![7z](https://img-home.csdnimg.cn/images/20210720083312.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)