У меня в книге - на форме находится плеер, которому я пытаюсь - запретить самостоятельно растягиваться при загрузке файла. Ссылки на файлы - находятся в красном столбце - достаточно выделить ячейку с адресом файла.
Но плеер растягивается только в двух случаях: 1)Если выделенная ячейка в красном столбце - пустая. 2)Если выделить ячейку в красном столбце, а затем мышкой нажать на оранжевую кнопку.
Вообще изменением размеров плеера - занимается Макрос3. Но он, будучи запущенным из кода Листа по событию Private Sub Worksheet_Calculate() почему-то не запускается или не действует.... Хотя если запускать Макрос3 - при нажатии на кнопку - то он работает.
Как заставить макрос все-таки растягивать плеер - по событию Private Sub Worksheet_Calculate() - при имеющемся пути в красном столбце?
У меня в книге - на форме находится плеер, которому я пытаюсь - запретить самостоятельно растягиваться при загрузке файла. Ссылки на файлы - находятся в красном столбце - достаточно выделить ячейку с адресом файла.
Но плеер растягивается только в двух случаях: 1)Если выделенная ячейка в красном столбце - пустая. 2)Если выделить ячейку в красном столбце, а затем мышкой нажать на оранжевую кнопку.
Вообще изменением размеров плеера - занимается Макрос3. Но он, будучи запущенным из кода Листа по событию Private Sub Worksheet_Calculate() почему-то не запускается или не действует.... Хотя если запускать Макрос3 - при нажатии на кнопку - то он работает.
Как заставить макрос все-таки растягивать плеер - по событию Private Sub Worksheet_Calculate() - при имеющемся пути в красном столбце?rotten41
[/vba]и можно убрать это из всех других мест. Дальше, что по-Вашему делают в коде строки [vba]
Код
If [a1] <> i Then..., Static previous_selection As String...?
[/vba] Подскажу - а ничего. Мусор, как и множественные пробелы между строками, зачем? Объявляйте обязательное декларирование переменных - Option explicit. P.S. поэтому я и спрашивал в прошлой теме, какова задача. Меня не интересует Ваше видение решения задачи, я уже по самому вопросу оценил Ваш уровень в программировании(без обид, все мы когда-то начинали и косячили).
Добавьте в модуль формы: [vba]
Код
Private Sub UserForm_Initialize() Макрос3 End Sub
[/vba]и можно убрать это из всех других мест. Дальше, что по-Вашему делают в коде строки [vba]
Код
If [a1] <> i Then..., Static previous_selection As String...?
[/vba] Подскажу - а ничего. Мусор, как и множественные пробелы между строками, зачем? Объявляйте обязательное декларирование переменных - Option explicit. P.S. поэтому я и спрашивал в прошлой теме, какова задача. Меня не интересует Ваше видение решения задачи, я уже по самому вопросу оценил Ваш уровень в программировании(без обид, все мы когда-то начинали и косячили).KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Сообщение отредактировал KuklP - Суббота, 25.03.2017, 08:16
KuklP, все написано в первом сообщении. При загрузке файла плеер так и выглядел раньше, как изображено на вашем рисунке.
Выделяете в красном столбце - ячейку с адресом. В этот момент плеер подгружает файл по адресу из ячейки - и - ИЗМЕНЯЕТ свои размеры.
Вопрос - как заставить макрос - ПОДГОНЯТЬ размеры плеера при загрузке файла - по адресу из ячейки красного столбца - к размеру Формы? (Сейчас подгонка осуществляется нажатием на оранжевую кнопку - с Макросом3)
KuklP, все написано в первом сообщении. При загрузке файла плеер так и выглядел раньше, как изображено на вашем рисунке.
Выделяете в красном столбце - ячейку с адресом. В этот момент плеер подгружает файл по адресу из ячейки - и - ИЗМЕНЯЕТ свои размеры.
Вопрос - как заставить макрос - ПОДГОНЯТЬ размеры плеера при загрузке файла - по адресу из ячейки красного столбца - к размеру Формы? (Сейчас подгонка осуществляется нажатием на оранжевую кнопку - с Макросом3)rotten41
Сообщение отредактировал rotten41 - Суббота, 25.03.2017, 09:37