Добрый день, помоги пожалуйста создать макрос. Описание: создаю кнопку, назначаю на нее макрос, суть макроса дать возможность выбора фотографии из любой папки и вставлять указанную фотографию в указанную область (другой лист на заданный интервал, область). До чего додумался это : Sub fрр() PicLocation = Application.GetOpenFilename("Image Files (*.jpg),*.jpg", , "Select Image File", , "False") ActiveSheet.Pictures.Insert(PicLocation).Select End Sub Он открывает, вставляет, но не так как мне надо и фото не подгоняет под размер(( Помогите плиз, заранее большое спасибо! [moder]Оформите код тегами (кнопка #)[/moder]
Добрый день, помоги пожалуйста создать макрос. Описание: создаю кнопку, назначаю на нее макрос, суть макроса дать возможность выбора фотографии из любой папки и вставлять указанную фотографию в указанную область (другой лист на заданный интервал, область). До чего додумался это : Sub fрр() PicLocation = Application.GetOpenFilename("Image Files (*.jpg),*.jpg", , "Select Image File", , "False") ActiveSheet.Pictures.Insert(PicLocation).Select End Sub Он открывает, вставляет, но не так как мне надо и фото не подгоняет под размер(( Помогите плиз, заранее большое спасибо! [moder]Оформите код тегами (кнопка #)[/moder]plaxmnan
а где вы задаете интервал то?? через форму или в ячейке?? И что вы подразумеваете под выражением подгонять размеры?? у каждой картинки свой размер, если их подгонять под один то будет уродство! или просто пропорционально уменьшать? Но размер фото если они изначально не одинаковые все-равно будут разные..
а где вы задаете интервал то?? через форму или в ячейке?? И что вы подразумеваете под выражением подгонять размеры?? у каждой картинки свой размер, если их подгонять под один то будет уродство! или просто пропорционально уменьшать? Но размер фото если они изначально не одинаковые все-равно будут разные..leskris
Сообщение отредактировал leskris - Вторник, 17.03.2015, 10:55
Код классный, но малец не то, прикреплю файл для ясности. Раньше использовал элементы Актив Х (для рисунков), очень удобно, но приходиться вручную вставку делать. А сейчас понадобилось упростить это все, т.к. рисунки стоят в тексте заготовки отчета и страницы буду закрывать. Сам рисунок должен вписываться в заданный размер выделенная на 2 листе желтым цветом. Заранее спасибо
Код классный, но малец не то, прикреплю файл для ясности. Раньше использовал элементы Актив Х (для рисунков), очень удобно, но приходиться вручную вставку делать. А сейчас понадобилось упростить это все, т.к. рисунки стоят в тексте заготовки отчета и страницы буду закрывать. Сам рисунок должен вписываться в заданный размер выделенная на 2 листе желтым цветом. Заранее спасибоplaxmnan
с фото много весит [moder]Для Вас первое замечание модератора ничего не говорит? Если нет, тогда прочитайте внимательно ПРАВИЛА Тому кто поможет до исправления первого поста - влеплю замечание без раздумий![/moder]
с фото много весит [moder]Для Вас первое замечание модератора ничего не говорит? Если нет, тогда прочитайте внимательно ПРАВИЛА Тому кто поможет до исправления первого поста - влеплю замечание без раздумий![/moder]plaxmnan