摘要： Sub outputMapBlock() If (MsgBox("是否开始导出图片，按指定范围？", vbYesNo) = vbNo) Then Exit Sub Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pActiveView As IActiveView Set pActiveView = pMxDoc.ActiveView Dim pExport As IExport Set pExport = New ExportJPEG pExport.ExportFileName = "C:\Tes 阅读全文