Надстройка Уокенбаха JWalk Chart Tools не работает (

Пользователь

Сообщений: 1177 Регистрация: 01.01.1970

07.06.2010 14:08:01

Доброго времени суток, выкладываю надстройку Уокенбаха, которую он прилагал к своей книге "Диаграммы в Excel".
Надстройка работает не совсем корректно, в частности, интересует сохранение всех диаграмм листа в отдельные файлы-картинки.
Код надстройки, как я понял из описания доступен всем.

Возможно, тут есть профи такого уровня, которые исправили бы эту ошибку в надстройке.
(Эксель 2003)

Прикрепленные файлы

post_129624.zip (82.08 КБ)

Excel-ok Пользователь Сообщений: 1177 Регистрация: 01.01.1970	#2 07.06.2010 14:24:34 вот что написано в файле помощи: VBA Code Available: Yes. Free to those who purchased Power Utility Pak (with VBA source code option) я думал, что это означает, что править код допустимо любому

Excel-ok Пользователь Сообщений: 1177 Регистрация: 01.01.1970	#3 07.06.2010 14:28:26 к сожалению, я не лезу в код макросов, ибо не имею знаний в этой области ((((((

Haken Пользователь Сообщений: 495 Регистрация: 09.01.2013	#4 07.06.2010 15:58:08 К сожалению, {quote}{login=Excel-ok}{date=07.06.2010 02:24}{thema=}{post}Free to those who purchased Power Utility Pak{/post}{/quote} означает, что код доступен тем, кто купил Power Utility Pak за money. :)

Guest Гость	#5 07.06.2010 16:25:51 {quote}{login=Haken}{date=07.06.2010 03:58}{thema=Re: }{post}К сожалению, {quote}{login=Excel-ok}{date=07.06.2010 02:24}{thema=}{post}Free to those who purchased Power Utility Pak{/post}{/quote} означает, что код доступен тем, кто купил Power Utility Pak за money. :){/post}{/quote} а что такое "Power Utility Pak" ??

Excel-ok Пользователь Сообщений: 1177 Регистрация: 01.01.1970	#6 07.06.2010 16:27:42 это был я ) в крайнем случае, может кто-то поможет с тем, чтобы написать макрос, который делает то же самое? ну то есть выгружает все диаграммы/графики и т.п. имеющиеся на листе как отдельные jpg файлы.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#7 07.06.2010 16:39:58 Excel-ok, Вы не поверите - скопировал Ваш вопрос в поисковик (по Интернету): что такое "Power Utility Pak" и сразу нашёл ответы

Excel-ok

Пользователь

Сообщений: 1177 Регистрация: 01.01.1970

07.06.2010 16:59:27

{quote}{login=Юрий М}{date=07.06.2010 04:39}{thema=}{post}Excel-ok, Вы не поверите - скопировал Ваш вопрос в поисковик (по Интернету): что такое "Power Utility Pak" и сразу нашёл ответы{/post}{/quote}

поверю.. ))
но одно дело искать поиском и совсем другое узнать (мнение) о предмете вопроса у профи :)

Excel-ok

Пользователь

Сообщений: 1177 Регистрация: 01.01.1970

07.06.2010 17:08:28

{quote}{login=The_Prist}{date=07.06.2010 04:47}{thema=}{post}В общем-то, сам код сохранения диаграмм в картинки очень прост:

End Sub{/post}{/quote}

Спасибо за макрос, а как им пользоваться? Скопировал в код листа, потом запустил через Сервис-Макрос-Макросы ВЫПОЛНИТЬ, но ничего предполагаемого не произошло...
:(
Куда сохраняются какртинки и как узнать с каким именем они сохраняются?

Простите, но макросах я полный 0, обещаю, но что начну учить! )

Excel-ok Пользователь Сообщений: 1177 Регистрация: 01.01.1970	#10 07.06.2010 22:35:51 ( не получилось

Excel-ok Пользователь Сообщений: 1177 Регистрация: 01.01.1970	#11 08.06.2010 12:15:12 напишите, плиз, у кого этот макрос заработал...

Hugo Пользователь Сообщений: 26337 Регистрация: 22.12.2012	#12 08.06.2010 12:26:01 У меня.

Excel-ok Пользователь Сообщений: 1177 Регистрация: 01.01.1970	#13 08.06.2010 12:33:59 {quote}{login=Hugo}{date=08.06.2010 12:26}{thema=}{post}У меня.{/post}{/quote} у Вас тоже, как у меня эксель 2003?

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#14 08.06.2010 12:48:37 заработал в таком виде: Sub Save_Chart_As_Picture() Dim i& For i = 1 To ActiveSheet.ChartObjects.Count ActiveSheet.ChartObjects(i).Chart.Export sSavePath & ActiveSheet.Name & "_" & ActiveSheet.ChartObjects(i).Name & ".JPG" Next End Sub Живи и дай жить..

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#15 08.06.2010 12:49:55 вернее так: Sub Save_Chart_As_Picture() Dim i& For i = 1 To ActiveSheet.ChartObjects.Count ActiveSheet.ChartObjects(i).Chart.Export ActiveSheet.Name & "_" & ActiveSheet.ChartObjects(i).Name & ".JPG" Next End Sub Живи и дай жить..

Hugo Пользователь Сообщений: 26337 Регистрация: 22.12.2012	#16 08.06.2010 12:52:19 У меня 2000eng

Excel-ok Пользователь Сообщений: 1177 Регистрация: 01.01.1970	#17 08.06.2010 12:56:15 {quote}{login=слэн}{date=08.06.2010 12:49}{thema=}{post}вернее так: {/post}{/quote} Дорогой Слэн, спасибо, выручил!!! Прист, тебе тоже спасибо! :-) Вы меня спасли! )

Excel-ok Пользователь Сообщений: 1177 Регистрация: 01.01.1970	#18 08.06.2010 13:02:43 кстати, а почему создались файлы Лист1_Chart 1.JPG Лист1_Chart 2.JPG Лист1_Chart 4.JPG ?? куда делось Лист1_Chart 3.JPG и/или откуда взялось Лист1_Chart 4.JPG? иначе выражаясь почему нумерация "прыгнула" ?

Читают тему