Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите девушке!!! / 24 сообщений из 24, страница 1 из 1
19.10.2006, 12:56:30
    #34066284
VaVaVa
VaVaVa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Нужно создать макрос, растягивающий уже созданную в Сhart диограмму по оси Х в созданной Sheet5.
Простой записью не получается. Помогите с кодом макроса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:07:52
    #34066341
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Примерно так:
Код: plaintext
1.
2.
    ActiveSheet.Shapes("Chart. 1").ScaleWidth  1 . 07 , msoFalse, msoScaleFromTopLeft
    ActiveSheet.Shapes("Chart. 1").ScaleHeight  1 . 16 , msoFalse, msoScaleFromTopLeft
или смотрите приложенный файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:12:59
    #34066366
VaVaVa
VaVaVa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Не работает пишет такую ошибку (в файле). Сейчас заплачу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:18:59
    #34066399
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Ничонепонял.
Может выложить файл?


Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:21:53
    #34066417
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
У меня твой код работает

Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:23:52
    #34066424
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Private Sub CommandButton1_Click()
ActiveSheet.Shapes("Диагр. 1").ScaleWidth 1.07, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Диагр. 1").ScaleHeight 1#, msoFalse, msoScaleFromTopLeft
End Sub

Только по Х растягивает !



Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:25:27
    #34066432
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Приче при каждом нажатии растягивает по Х на 7 процентов

Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:27:37
    #34066442
VaVaVa
VaVaVa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Вот, всеравно не работает...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:29:37
    #34066452
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Видимо какая то библиотека не подключена



Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:31:23
    #34066466
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Попробуй так: влючи макрорекордер на запись и растяни вручную диаграмму. Посмотри полученный код. Подправь и сунь под кнопку.



Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:32:48
    #34066474
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
У меня получилось так:
ActiveSheet.ChartObjects("Диагр. 1").Activate
ActiveChart.ChartArea.Select
Windows("Temp[1]").SmallScroll ToRight:=1
ActiveSheet.Shapes("Диагр. 1").ScaleWidth 0.77, msoFalse, msoScaleFromTopLeft
ActiveWindow.Visible = False
Windows("Temp[1]").Activate
Range("K4").Select



Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:33:18
    #34066478
VaVaVa
VaVaVa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Что подправить....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:35:20
    #34066489
VaVaVa
VaVaVa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Кто-нибудь пришлите подправленный файл, я ничгошенки не понимаю!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:36:06
    #34066497
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Подправить коэф. увеличения по ширине ScaleWidth 0.77
уменшит. ( 77 проц. от начального)

Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:42:14
    #34066541
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
На сколько проц. нужно растягивать при нажатии на кнопку?



Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:53:42
    #34066595
VaVaVa
VaVaVa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Talgat, а ты не мог бы мне прислать исправленный файл каторый я выкладывала. Прости за наивность, я далека от програмирования.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 13:55:25
    #34066605
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Могу. На сколько процентов должна растягиватся диаграмма по высоте и ширине при нажатии на кнопку?

Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 14:03:42
    #34066653
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
VaVaVaНе работает пишет такую ошибку (в файле). Сейчас заплачу.
Ну вы хоть понимаете это сообщение?
В ней говорится что элемент с таким именем не найден, скорее всего ругается на
ActiveSheet.Shapes("Chart. 1").ScaleWidth 1.07, msoFalse, msoScaleFromTopLeft
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 14:08:30
    #34066676
VaVaVa
VaVaVa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Миленький Talgat, только по ширене, и до конца ячеек.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 14:14:34
    #34066702
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
VaVaVaМиленький Talgat, только по ширене, и до конца ячеек.
На ширину экрана что ли?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 14:22:15
    #34066737
VaVaVa
VaVaVa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Смешно, файл "раст. диаграммы.xls" у меня не работает. И при нажатии кнопки выдает приведенную ранее ошибку. Наверное у меня что-то с компьютером.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 14:25:15
    #34066755
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Скорее МС Офис более старой версии


Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 14:29:48
    #34066777
VaVaVa
VaVaVa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
Спасибо всем, а особенно Talgad. Всем пока.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2006, 23:26:05
    #34068178
treiber
treiber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите девушке!!!
VaVaVaСмешно, файл "раст. диаграммы.xls" у меня не работает. И при нажатии кнопки выдает приведенную ранее ошибку. Наверное у меня что-то с компьютером. Не может ли причиной не работоспособности макроса-растяжки йвляться то,чцто подключается не vba, а vb?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите девушке!!! / 24 сообщений из 24, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 335ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2184107]:
 0ms
get settings:
 5ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 194ms
total:  335ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]