Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: TonY1
Перестал работаеть экспорт Диаграм в excel'е, не может записать картинку на диск, раньше этот код работал без проблем, но поле переустановки WIN XP

[color=red]этот код в последней строке выдает ошибку (когда записывает диаграму как картинку JPG) выдает ошибку[/color]:

[color=red]Run-time error '1004'
Method 'Export' of object '_Chart' faild
[/color]


какие обновления, удалить или что-то обновить?

        ActiveChart.Location WHERE:=xlLocationAsObject, Name:=str
        strShNa = ActiveChart.Name
        strShNa = Trim(Replace(strShNa, str, vbNullString))
        ActiveSheet.Shapes(strShNa).Height = lH * 1.01
        ActiveSheet.Shapes(strShNa).Width = lW * 1.01
        DoEvents
        ActiveChart.Paste
        ActiveChart.Export Filename:=strFiNa, FilterName:="jpg"


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.