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

Вход

Регистрация

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

 

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

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

Excel 2010
Добрый день, хотел автоматизировать перемещение графика, его уменьшение или увеличение, но, видимо, такая функция в VBA не прокатывает...
Макрос заваливается.л
К сообщению приложен файл: __.xlsm(22Kb)
 
Ответить
СообщениеДобрый день, хотел автоматизировать перемещение графика, его уменьшение или увеличение, но, видимо, такая функция в 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Вот, тут не отрабатывает, не могу понять, почему.
К сообщению приложен файл: 6956542.png(216Kb)
 
Ответить
СообщениеВот, тут не отрабатывает, не могу понять, почему.

Автор - ant6729
Дата добавления - 19.08.2016 в 12:49
sboy Дата: Пятница, 19.08.2016, 13:00 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 196
Репутация: 48 ±
Замечаний: 0% ±

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

Автор - sboy
Дата добавления - 19.08.2016 в 13:00
ant6729 Дата: Пятница, 19.08.2016, 13:06 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 40% ±

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

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

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

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

В документе, который скинул, пошло...

Автор - ant6729
Дата добавления - 19.08.2016 в 13:06
buchlotnik Дата: Пятница, 19.08.2016, 13:28 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

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

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


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru


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


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

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

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

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

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

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

Автор - ant6729
Дата добавления - 19.08.2016 в 13:53
buchlotnik Дата: Пятница, 19.08.2016, 14:11 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

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(23Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
Сообщениетак что вам мешает?[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
Группа: Друзья
Ранг: Старожил
Сообщений: 2049
Репутация: 613 ±
Замечаний: 0% ±

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(23Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru


Сообщение отредактировал 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Надо поюзать
 
Ответить
СообщениеНадо поюзать

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

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