Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Преобразование макроса к версии Эксель 2013 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование макроса к версии Эксель 2013 (Макросы/Sub)
Преобразование макроса к версии Эксель 2013
rotten41 Дата: Понедельник, 24.04.2017, 19:37 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый вечер форумчане.
Помогите решить вопрос.

У меня есть макрос.
Принцип его действия такой: если выделить диаграмму и нажать на кнопку - то выбранная диаграмма скопируется как jpg-рисунок в папку с файлом.

Однако работает этот макрос - только в "Эксель2003", а в "Эксель2013" - уже не работает.

Как заставить этот макрос работать - в программе "Эксель2013" ?
К сообщению приложен файл: 9044449.xls (43.0 Kb)
 
Ответить
СообщениеДобрый вечер форумчане.
Помогите решить вопрос.

У меня есть макрос.
Принцип его действия такой: если выделить диаграмму и нажать на кнопку - то выбранная диаграмма скопируется как jpg-рисунок в папку с файлом.

Однако работает этот макрос - только в "Эксель2003", а в "Эксель2013" - уже не работает.

Как заставить этот макрос работать - в программе "Эксель2013" ?
Автор - rotten41
Дата добавления - 24.04.2017 в 19:37
buchlotnik Дата: Понедельник, 24.04.2017, 19:55 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
В 2016 работает, да и для любой другой версии препятствий не вижу


Сообщение отредактировал buchlotnik - Понедельник, 24.04.2017, 19:56
 
Ответить
СообщениеВ 2016 работает, да и для любой другой версии препятствий не вижу
Автор - buchlotnik
Дата добавления - 24.04.2017 в 19:55
rotten41 Дата: Понедельник, 24.04.2017, 20:00 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
buchlotnik, в 2013 не работает.
Запускаю в 2007 - тоже не работает.

Выделяю диаграмму, жму на кнопку - ничего не происходит.


Сообщение отредактировал rotten41 - Понедельник, 24.04.2017, 20:07
 
Ответить
Сообщениеbuchlotnik, в 2013 не работает.
Запускаю в 2007 - тоже не работает.

Выделяю диаграмму, жму на кнопку - ничего не происходит.
Автор - rotten41
Дата добавления - 24.04.2017 в 20:00
buchlotnik Дата: Понедельник, 24.04.2017, 20:10 | Сообщение № 4
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
у меня всё сохраняет - и по кнопке и через F8
Цитата
ничего не происходит
но он жке фоном графический файл создаёт - безо всяких диалогов


Сообщение отредактировал buchlotnik - Понедельник, 24.04.2017, 20:11
 
Ответить
Сообщениеу меня всё сохраняет - и по кнопке и через F8
Цитата
ничего не происходит
но он жке фоном графический файл создаёт - безо всяких диалогов
Автор - buchlotnik
Дата добавления - 24.04.2017 в 20:10
RAN Дата: Понедельник, 24.04.2017, 20:29 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
При нажатии на кнопку выделение с диаграммы снимается, и
[vba]
Код
If ActiveChart Is Nothing Then Exit Sub
[/vba]
Так что, каким образом он у вас по кнопке работает, хоть в каком Excel, непонятно.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПри нажатии на кнопку выделение с диаграммы снимается, и
[vba]
Код
If ActiveChart Is Nothing Then Exit Sub
[/vba]
Так что, каким образом он у вас по кнопке работает, хоть в каком Excel, непонятно.
Автор - RAN
Дата добавления - 24.04.2017 в 20:29
buchlotnik Дата: Понедельник, 24.04.2017, 20:44 | Сообщение № 6
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
RAN,
Цитата
При нажатии на кнопку выделение с диаграммы снимается
не снимается, если на неё макрос назначен
 
Ответить
СообщениеRAN,
Цитата
При нажатии на кнопку выделение с диаграммы снимается
не снимается, если на неё макрос назначен
Автор - buchlotnik
Дата добавления - 24.04.2017 в 20:44
RAN Дата: Понедельник, 24.04.2017, 20:46 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
У меня благополучно снимается.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеУ меня благополучно снимается.
Автор - RAN
Дата добавления - 24.04.2017 в 20:46
rotten41 Дата: Понедельник, 24.04.2017, 21:28 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата RAN, 24.04.2017 в 20:29, в сообщении № 5 ()
При нажатии на кнопку выделение с диаграммы снимается


В Е2003 не снимается.
А в Е2013 - уже действительно снимается.

В общем если выделить диаграмму, нажать Alt+F8 и запустить макрос - то все сохраняется даже в Е2013. Но так же неудобно работать.
Как прицепить макрос - хотя бы - на саму диаграмму, чтобы щелкать нужно было не по кнопке, а по диаграмме ?
(Этот макрос прицепленный на диаграмму - не работает.)
 
Ответить
Сообщение
Цитата RAN, 24.04.2017 в 20:29, в сообщении № 5 ()
При нажатии на кнопку выделение с диаграммы снимается


В Е2003 не снимается.
А в Е2013 - уже действительно снимается.

В общем если выделить диаграмму, нажать Alt+F8 и запустить макрос - то все сохраняется даже в Е2013. Но так же неудобно работать.
Как прицепить макрос - хотя бы - на саму диаграмму, чтобы щелкать нужно было не по кнопке, а по диаграмме ?
(Этот макрос прицепленный на диаграмму - не работает.)
Автор - rotten41
Дата добавления - 24.04.2017 в 21:28
buchlotnik Дата: Понедельник, 24.04.2017, 21:33 | Сообщение № 9
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
Как прицепить макрос
можно сделать кнопку на панели быстрого доступа и назначить на неё макрос или сделать кнопку на ленте под свой макрос, а если сильно заморочиться, то можно и в контекстное меню для ПКМ по диаграмме воткнуться


Сообщение отредактировал buchlotnik - Понедельник, 24.04.2017, 21:38
 
Ответить
Сообщение
Цитата
Как прицепить макрос
можно сделать кнопку на панели быстрого доступа и назначить на неё макрос или сделать кнопку на ленте под свой макрос, а если сильно заморочиться, то можно и в контекстное меню для ПКМ по диаграмме воткнуться
Автор - buchlotnik
Дата добавления - 24.04.2017 в 21:33
rotten41 Дата: Понедельник, 24.04.2017, 21:41 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата buchlotnik, 24.04.2017 в 21:33, в сообщении № 9 ()
можно сделать кнопку на панели быстрого доступа и назначить на неё макрос


Навряд ли это хорошая идея, поскольку кнопка нужна именно для одного конкретного листа.
 
Ответить
Сообщение
Цитата buchlotnik, 24.04.2017 в 21:33, в сообщении № 9 ()
можно сделать кнопку на панели быстрого доступа и назначить на неё макрос


Навряд ли это хорошая идея, поскольку кнопка нужна именно для одного конкретного листа.
Автор - rotten41
Дата добавления - 24.04.2017 в 21:41
buchlotnik Дата: Понедельник, 24.04.2017, 22:04 | Сообщение № 11
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
а диаграмм на этом конкретном листе сколько?
 
Ответить
Сообщениеа диаграмм на этом конкретном листе сколько?
Автор - buchlotnik
Дата добавления - 24.04.2017 в 22:04
RAN Дата: Понедельник, 24.04.2017, 22:12 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата rotten41, 24.04.2017 в 21:28, в сообщении № 8 ()
(Этот макрос прицепленный на диаграмму - не работает.)

Можно извратиться, и мяукнуть
[vba]
Код
Sub мяу()
    If TypeName(Application.Caller) = "String" Then v = Application.Caller
    If InStr(1, v, "Диаграмма", vbTextCompare) Then
        ActiveSheet.ChartObjects(v).Select
        ActiveChart.Export ThisWorkbook.Path & "\" & v & ".png"    'gif
    End If
End Sub
[/vba]
И мявкнуть вдогон
[vba]
Код
Sub мяв()
    For Each ch In ActiveSheet.ChartObjects
        ch.OnAction = "мяу"
    Next
End Sub
[/vba]
К сообщению приложен файл: 0449476.xls (45.5 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 24.04.2017, 22:21
 
Ответить
Сообщение
Цитата rotten41, 24.04.2017 в 21:28, в сообщении № 8 ()
(Этот макрос прицепленный на диаграмму - не работает.)

Можно извратиться, и мяукнуть
[vba]
Код
Sub мяу()
    If TypeName(Application.Caller) = "String" Then v = Application.Caller
    If InStr(1, v, "Диаграмма", vbTextCompare) Then
        ActiveSheet.ChartObjects(v).Select
        ActiveChart.Export ThisWorkbook.Path & "\" & v & ".png"    'gif
    End If
End Sub
[/vba]
И мявкнуть вдогон
[vba]
Код
Sub мяв()
    For Each ch In ActiveSheet.ChartObjects
        ch.OnAction = "мяу"
    Next
End Sub
[/vba]
Автор - RAN
Дата добавления - 24.04.2017 в 22:12
rotten41 Дата: Понедельник, 24.04.2017, 22:23 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN, все работает.
Огромное спасибо.
 
Ответить
СообщениеRAN, все работает.
Огромное спасибо.
Автор - rotten41
Дата добавления - 24.04.2017 в 22:23
RAN Дата: Понедельник, 24.04.2017, 23:10 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
А лучше так
[vba]
Код
Sub мяу2()
    On Error Resume Next ' на всякий який
    With ActiveSheet.ChartObjects(Application.Caller)
        .Chart.Export ThisWorkbook.Path & "\" & Application.Caller & ".png"    'gif
    End With
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 24.04.2017, 23:19
 
Ответить
СообщениеА лучше так
[vba]
Код
Sub мяу2()
    On Error Resume Next ' на всякий який
    With ActiveSheet.ChartObjects(Application.Caller)
        .Chart.Export ThisWorkbook.Path & "\" & Application.Caller & ".png"    'gif
    End With
End Sub
[/vba]
Автор - RAN
Дата добавления - 24.04.2017 в 23:10
Zu1 Дата: Среда, 26.04.2017, 22:06 | Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем привет!Помогите пожалуйста в аксессе сделать макрос с функцией импорта из экселя в аксесс.т.е при нажатии на кнопку макрос в форме,должно выводится таблица заявки с данными экселя.Таблица заявки уже есть,нужно чтоб в этой табл.выводилась информация.Объясните пожалуйста по шагам,как написать,куда написать,что открыть итд.Заранее БЛАГОДАРЮ)

Zuzu

Сообщение отредактировал Zu1 - Среда, 26.04.2017, 22:11
 
Ответить
СообщениеВсем привет!Помогите пожалуйста в аксессе сделать макрос с функцией импорта из экселя в аксесс.т.е при нажатии на кнопку макрос в форме,должно выводится таблица заявки с данными экселя.Таблица заявки уже есть,нужно чтоб в этой табл.выводилась информация.Объясните пожалуйста по шагам,как написать,куда написать,что открыть итд.Заранее БЛАГОДАРЮ)
Автор - Zu1
Дата добавления - 26.04.2017 в 22:06
Zu1 Дата: Среда, 26.04.2017, 22:12 | Сообщение № 16
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
вот аксесс

Zuzu
 
Ответить
Сообщениевот аксесс
Автор - Zu1
Дата добавления - 26.04.2017 в 22:12
Pelena Дата: Среда, 26.04.2017, 22:19 | Сообщение № 17
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Zu1, прочитайте Правила форума и создайте свою тему в разделе по Access

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеZu1, прочитайте Правила форума и создайте свою тему в разделе по Access
Автор - Pelena
Дата добавления - 26.04.2017 в 22:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование макроса к версии Эксель 2013 (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!