vba03-1.txt
来自「AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.」· 文本 代码 · 共 6 行
TXT
6 行
Sub MyMacro()
Dim pMxDocument As IMxDocument
Set pMxDocument = Application.Document
MsgBox pMxDocument.FocusMap.Name
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?