При экспорте диаграммы в графический файл столкнулся с ошибкой метода .Export объекта Chart
[vba]
Код
Private Sub UpdateChart() 'Получить Диаграмму по выбранным: Имени Листа и Номеру Диаграммы
'Удаление временного GIF-файла, если он создавался ранее Dim FullName As String FullName = ThisWorkbook.Path & "\temp.gif" 'png-PNG gif-GIF jpeg-JPEG If Dir(FullName) <> "" Then Kill ThisWorkbook.Path & "\temp.gif" '--------------------------------------------------------------------------------------------- 'Создание нового врЕменного GIF-файла Dim CurrentChart As Chart, Fname As String Set CurrentChart = ThisWorkbook.Worksheets(nameSheet).ChartObjects(numberChart).Chart
' Сохранение диаграммы в виде GIF-файла Fname = ThisWorkbook.Path & "\temp.gif" CurrentChart.Export FileName:=Fname, FilterName:="GIF"
If FileLen(Fname) <> 0 Then 'Отображение диаграммы Image1.Picture = LoadPicture(Fname) Else MsgBox "Временный Файл создан с нулевым размером. Попробуйте ещё раз.", vbExclamation, "К сведению" End If End Sub
[/vba]
Экспорт то происходит, то не происходит. Во втором случае просто диаграмма экспортируется в файл нулевого размера. Диаграмму выбираю через Форму:
Кто-нибудь сталкивался с такой проблемой?
При экспорте диаграммы в графический файл столкнулся с ошибкой метода .Export объекта Chart
[vba]
Код
Private Sub UpdateChart() 'Получить Диаграмму по выбранным: Имени Листа и Номеру Диаграммы
'Удаление временного GIF-файла, если он создавался ранее Dim FullName As String FullName = ThisWorkbook.Path & "\temp.gif" 'png-PNG gif-GIF jpeg-JPEG If Dir(FullName) <> "" Then Kill ThisWorkbook.Path & "\temp.gif" '--------------------------------------------------------------------------------------------- 'Создание нового врЕменного GIF-файла Dim CurrentChart As Chart, Fname As String Set CurrentChart = ThisWorkbook.Worksheets(nameSheet).ChartObjects(numberChart).Chart
' Сохранение диаграммы в виде GIF-файла Fname = ThisWorkbook.Path & "\temp.gif" CurrentChart.Export FileName:=Fname, FilterName:="GIF"
If FileLen(Fname) <> 0 Then 'Отображение диаграммы Image1.Picture = LoadPicture(Fname) Else MsgBox "Временный Файл создан с нулевым размером. Попробуйте ещё раз.", vbExclamation, "К сведению" End If End Sub
[/vba]
Экспорт то происходит, то не происходит. Во втором случае просто диаграмма экспортируется в файл нулевого размера. Диаграмму выбираю через Форму:
Уокенбах по этому поводу говорит, что метод будет неработоспособный, если не установлен нужный фильтр экспорта изображений. Но тогда бы вообще ничего не работало, а то ведь работает, но выборочно как то. А Файл просто Огромный. Надо сильно урезать. Попробую. Но было бы также интересно встретить "брата" по проблеме
Уокенбах по этому поводу говорит, что метод будет неработоспособный, если не установлен нужный фильтр экспорта изображений. Но тогда бы вообще ничего не работало, а то ведь работает, но выборочно как то. А Файл просто Огромный. Надо сильно урезать. Попробую. Но было бы также интересно встретить "брата" по проблеме Vostok
"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"