Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Экспорт диаграммы в формате графического файла.
Синтаксис
expression. Export (bstr, varFilterName, varInteractive)
выражение: переменная, представляющая объект Chart.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| bstr | Обязательный | String | Путь и имя экспортированного файла. |
| varFilterName | Необязательный | Variant | Независимое от языка имя графического фильтра, отображаемого в реестре ( HKLM\\SOFTWARE\Wow6432Node\Microsoft\Shared Tools\Graphics Filters). |
| varInteractive | Необязательный | Variant | Значение true , чтобы отобразить диалоговое окно, содержащее параметры фильтра, если таковые есть. Если параметр varInteractive имеет значение False, Project использует значения по умолчанию для фильтра. Значение по умолчанию — False. |
| bstr | Обязательный | String | |
| 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 и обратная связь.