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

Вход

Регистрация

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

 

= Мир MS Excel/Перемещение графика, реально ли. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение графика, реально ли. (Макросы/Sub)
Перемещение графика, реально ли.
ant6729 Дата: Пятница, 19.08.2016, 12:44 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Добрый день, хотел автоматизировать перемещение графика, его уменьшение или увеличение, но, видимо, такая функция в VBA не прокатывает...
Макрос заваливается.л
К сообщению приложен файл: __.xlsm (22.1 Kb)
 
Ответить
СообщениеДобрый день, хотел автоматизировать перемещение графика, его уменьшение или увеличение, но, видимо, такая функция в VBA не прокатывает...
Макрос заваливается.л
Автор - ant6729
Дата добавления - 19.08.2016 в 12:44
Zdx Дата: Пятница, 19.08.2016, 12:47 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 4 ±
Замечаний: 0% ±

2010
На 2010 все работает

Неизлечимых болезней нет, есть неизлечимые люди.
 
Ответить
СообщениеНа 2010 все работает
Автор - Zdx
Дата добавления - 19.08.2016 в 12:47
ant6729 Дата: Пятница, 19.08.2016, 12:49 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Вот, тут не отрабатывает, не могу понять, почему.
К сообщению приложен файл: 6956542.png (216.1 Kb)
 
Ответить
СообщениеВот, тут не отрабатывает, не могу понять, почему.
Автор - ant6729
Дата добавления - 19.08.2016 в 12:49
sboy Дата: Пятница, 19.08.2016, 13:00 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
макрос рабочий, может вы переименовали диаграмму?

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
макрос рабочий, может вы переименовали диаграмму?
Автор - sboy
Дата добавления - 19.08.2016 в 13:00
ant6729 Дата: Пятница, 19.08.2016, 13:06 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Думал про это... что номера разные, а как переименовывать саму диаграмму? Где это...? гуглил - не нашел...

Да и аналогичные действия автоматизировал на листе Excel (сообщение с фото) - там не шло.

В документе, который скинул, пошло...
 
Ответить
СообщениеДумал про это... что номера разные, а как переименовывать саму диаграмму? Где это...? гуглил - не нашел...

Да и аналогичные действия автоматизировал на листе Excel (сообщение с фото) - там не шло.

В документе, который скинул, пошло...
Автор - ant6729
Дата добавления - 19.08.2016 в 13:06
buchlotnik Дата: Пятница, 19.08.2016, 13:28 | Сообщение № 6
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
как переименовывать саму диаграмму? Где это...?

К сообщению приложен файл: 2228208.jpg (38.0 Kb)


Сообщение отредактировал buchlotnik - Пятница, 19.08.2016, 13:28
 
Ответить
Сообщение
Цитата
как переименовывать саму диаграмму? Где это...?

Автор - buchlotnik
Дата добавления - 19.08.2016 в 13:28
ant6729 Дата: Пятница, 19.08.2016, 13:53 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Всё...догнал...

Команда постоянно перенумеровывала диаграммы на единицу выше при каждом запуске. Потом логично не могла применяться к новому номеру.
Надо закрывать, открывать документы.
Тогда получится.

А хотелось бы, чтобы например, тягала диаграмму, которая выделяется пользователем, а не под данным номером.
Хотя и без этого ок.
Всем спасибо.
 
Ответить
СообщениеВсё...догнал...

Команда постоянно перенумеровывала диаграммы на единицу выше при каждом запуске. Потом логично не могла применяться к новому номеру.
Надо закрывать, открывать документы.
Тогда получится.

А хотелось бы, чтобы например, тягала диаграмму, которая выделяется пользователем, а не под данным номером.
Хотя и без этого ок.
Всем спасибо.
Автор - ant6729
Дата добавления - 19.08.2016 в 13:53
buchlotnik Дата: Пятница, 19.08.2016, 14:11 | Сообщение № 8
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
так что вам мешает?[vba]
Код
Sub макрос30()
    Dim n$
    n = ActiveChart.Name
    n = Right(n, Len(n) - InStr(1, n, " "))
    MsgBox n
    ActiveSheet.ChartObjects(n).Activate
    ActiveSheet.Shapes(n).IncrementLeft 264.75
    ActiveSheet.Shapes(n).IncrementTop 36.75
    ActiveSheet.ChartObjects(n).Activate
    ActiveSheet.Shapes(n).ScaleWidth 0.7334468219, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes(n).ScaleHeight 0.6794364021, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.ChartObjects(n).Activate
    ActiveSheet.Shapes(n).IncrementLeft 2.25
    ActiveSheet.Shapes(n).IncrementTop -69.75
    Range("G18").Select
End Sub
[/vba]
К сообщению приложен файл: -2-.xlsm (23.2 Kb)
 
Ответить
Сообщениетак что вам мешает?[vba]
Код
Sub макрос30()
    Dim n$
    n = ActiveChart.Name
    n = Right(n, Len(n) - InStr(1, n, " "))
    MsgBox n
    ActiveSheet.ChartObjects(n).Activate
    ActiveSheet.Shapes(n).IncrementLeft 264.75
    ActiveSheet.Shapes(n).IncrementTop 36.75
    ActiveSheet.ChartObjects(n).Activate
    ActiveSheet.Shapes(n).ScaleWidth 0.7334468219, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes(n).ScaleHeight 0.6794364021, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.ChartObjects(n).Activate
    ActiveSheet.Shapes(n).IncrementLeft 2.25
    ActiveSheet.Shapes(n).IncrementTop -69.75
    Range("G18").Select
End Sub
[/vba]
Автор - buchlotnik
Дата добавления - 19.08.2016 в 14:11
buchlotnik Дата: Суббота, 20.08.2016, 09:19 | Сообщение № 9
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Да, активировать активированную диаграмму тоже не надо B) [vba]
Код
Sub Макрос30()
    Dim n$
    n = ActiveChart.Name
    n = Right(n, Len(n) - InStr(1, n, " "))
    ActiveSheet.Shapes(n).IncrementLeft 264.75
    ActiveSheet.Shapes(n).IncrementTop 36.75
    ActiveSheet.Shapes(n).ScaleWidth 0.7334468219, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes(n).ScaleHeight 0.6794364021, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes(n).IncrementLeft 2.25
    ActiveSheet.Shapes(n).IncrementTop -69.75
    Range("G18").Select
End Sub
[/vba]
а лучше так:
[vba]
Код
Sub Ìмакрос()
    Dim n$
    n = ActiveChart.Name
    n = Right(n, Len(n) - InStr(1, n, " "))
    With ActiveSheet.Shapes(n)
        .IncrementLeft 264.75
        .IncrementTop 36.75
        .ScaleWidth 0.7334468219, msoFalse, msoScaleFromBottomRight
        .ScaleHeight 0.6794364021, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 2.25
        .IncrementTop -69.75
    End With
    Range("G18").Select
End Sub
[/vba]
К сообщению приложен файл: 1900461.xlsm (23.2 Kb)


Сообщение отредактировал buchlotnik - Суббота, 20.08.2016, 09:26
 
Ответить
СообщениеДа, активировать активированную диаграмму тоже не надо B) [vba]
Код
Sub Макрос30()
    Dim n$
    n = ActiveChart.Name
    n = Right(n, Len(n) - InStr(1, n, " "))
    ActiveSheet.Shapes(n).IncrementLeft 264.75
    ActiveSheet.Shapes(n).IncrementTop 36.75
    ActiveSheet.Shapes(n).ScaleWidth 0.7334468219, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes(n).ScaleHeight 0.6794364021, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes(n).IncrementLeft 2.25
    ActiveSheet.Shapes(n).IncrementTop -69.75
    Range("G18").Select
End Sub
[/vba]
а лучше так:
[vba]
Код
Sub Ìмакрос()
    Dim n$
    n = ActiveChart.Name
    n = Right(n, Len(n) - InStr(1, n, " "))
    With ActiveSheet.Shapes(n)
        .IncrementLeft 264.75
        .IncrementTop 36.75
        .ScaleWidth 0.7334468219, msoFalse, msoScaleFromBottomRight
        .ScaleHeight 0.6794364021, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 2.25
        .IncrementTop -69.75
    End With
    Range("G18").Select
End Sub
[/vba]
Автор - buchlotnik
Дата добавления - 20.08.2016 в 09:19
ant6729 Дата: Вторник, 23.08.2016, 20:00 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Надо поюзать
 
Ответить
СообщениеНадо поюзать
Автор - ant6729
Дата добавления - 23.08.2016 в 20:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение графика, реально ли. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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