Visio VBA导出高分辨率PNG异常：手动与代码导出分辨率不一致求助

问题核心 #

手动设置300dpi导出PNG能得到3450×2397的高分辨率图，但用VBA宏导出时却只有1104×767，甚至之前能用的旧宏也失效了。

关键修复点 #

你的代码里SetRasterExportSize指定了固定的英寸尺寸，这会覆盖自定义分辨率的计算逻辑，导致导出尺寸被强制限制。直接移除这行设置，让Visio根据页面实际尺寸和300dpi自动计算像素数即可。

修改后的代码 #

pngPathName = pngPath & "\" & visioPage.Name & ".png"
Debug.Print "visioPage.Export " & pngPathName

' 设置300dpi自定义分辨率
Application.Settings.SetRasterExportResolution _
    visRasterUseCustomResolution, _
    300#, 300#, _
    visRasterPixelsPerInch

' 保留必要的格式设置，移除固定尺寸限制
Application.Settings.RasterExportDataFormat = visRasterInterlace
Application.Settings.RasterExportColorFormat = visRaster24Bit
Application.Settings.RasterExportRotation = visRasterNoRotation
Application.Settings.RasterExportFlip = visRasterNoFlip

' 确保导出整个页面而非选中区域
visioPage.Application.ActiveWindow.DeselectAll

' 导出PNG
visioPage.Export pngPathName

额外排查项 #

1. 页面打印尺寸一致性：手动导出时Visio会使用当前页面的打印设置尺寸，VBA导出同理。如果页面打印尺寸被修改，会导致分辨率计算偏差，可添加代码强制设置：

' 示例：设置为A4纸（毫米单位）
visioPage.PageSetup.SetCustomPaperSize visPageSizeMetric, 210, 297

2. Visio全局设置重置：如果旧宏突然失效，可能是Visio的全局导出设置被篡改。可以尝试关闭Visio后，修复Office安装，或重置Visio的默认设置。

3. 避免选中区域导出：如果宏运行时页面有选中的形状，Export方法只会导出选中部分，添加DeselectAll确保导出整个页面。

内容的提问来源于stack exchange，提问作者Francis