Chart.Export 方法 (Project)
以图形文件格式导出图表。
语法
表达式。导出 (bstr、 varFilterName、 varInteractive)
expression:一个表示 Chart 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
bstr | 必需 | 字符串 | 导出的文件的路径和名称。 |
varFilterName | 可选 | Variant | 显示在注册表中的图形筛选器与语言无关的名称 ( HKLM\\SOFTWARE\Wow6432Node\Microsoft\Shared Tools\Graphics Filters ) 。 |
varInteractive | 可选 | Variant | 如果为 True ,则显示包含特定于筛选器的选项(如果有)的对话框。 如果 varInteractive 为 False,则 Project 使用筛选器的默认值。 默认值为 False。 |
bstr | 必需 | 字符串 | |
varFilterName | 可选 | Variant | |
varInteractive | 可选 | Variant |
返回值
Boolean
说明
Export 方法覆盖同名的现有读/写文件。
示例
以下示例将图表导出为可移植网络图形 (.png) 文件。
Sub ExportChart()
Dim chartShape As Shape
Dim reportName As String
Dim fileFormat As String
Dim fileName As String
fileFormat = "PNG"
fileName = "C:\Project\VBA\Samples\SimpleChart.png"
reportName = "Simple scalar chart"
Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
If (chartShape.Chart.Export(bstr:=filename, varFilterName:=fileFormat)) Then
Debug.Print "Exported chart: " & filename
End If
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈