Подгонка картинки под размер ячейки при "drag and drop"

@H3nry · Регистрация: 28.10.2012

Студворк — интернет-сервис помощи студентам

Добрый вечер, уважаемые профессионалы!

Облазил кучу ресурсов, но безуспешно.
Я работаю с excel 2010, подготавливаю каталоги, выдергиваю изображения методом "Drag and drop", т.е. просто "стягиваю" нужную картинку с сайта и вставляю в эксель. Но мне необходимо, чтобы при перетаскивании картинка автоматически подгонялась под размеры ячейки! Работы много, чтобы не терять во времени, не подгоняя вручную. Как это сделать?

Спасибо за внимание!

@H3nry · 28.10.2012, 21:55 **[ТС]**

Сообщение от toiai

В EXcel 2007 событие не срабатывает, только когда выделяешь несколько объектов на странице и то изменяет размеры последнего рисунка.

Добавлено через 2 минуты
и еще рисунок растягивает на две ячейки... наверно разность версий...

я тоже так считаю, многие фишки не работают в старых версиях...

Сообщение от Казанский

По идее совместимость назад должна быть

Завтра смогу попробовать на 2007.

Да, попробуйте, пожалуйста, надо решить задачу - это сэкономит много времени.

Сообщение от Казанский

Перед 10 строкой вставьте

Visual Basic
1
        .Hyperlink.Delete

спасибо!

Скрипт · 28.10.2012, 22:12

H3nry, размеры изображений вот этими командами меняйте:

Visual Basic
1
2
.Width = Target.Cells(1).Width
.Height = Target.Cells(1).Height

@H3nry · 29.10.2012, 20:20 **[ТС]**

Сообщение от Скрипт

H3nry, размеры изображений вот этими командами меняйте:

Visual Basic
1
2
.Width = Target.Cells(1).Width
.Height = Target.Cells(1).Height

А вы не могли бы дать мне полный работающий скрипт для эксель 2010?
Еще просьба добавить одно условие. Картинка должна подогнаться под ячейку с отступом от левого и правого края по 4 пикселя внутри ячейки.

Скрипт · 29.10.2012, 20:27

Код без учёта удаления гиперссылок и без учёта последних двух требований из сообщения #23:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim shapesCount&
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Shapes.Count > shapesCount Then
    shapesCount = Me.Shapes.Count
    With Me.Shapes(shapesCount)
        .LockAspectRatio = msoFalse
        .Width = Target.Cells(1).Width
        .Height = Target.Cells(1).Height
    End With
End If
End Sub

@H3nry · 29.10.2012, 20:30 **[ТС]**

Сообщение от Скрипт

Код без учёта удаления гиперссылок и без учёта последних двух требований из сообщения #23:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim shapesCount&
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Shapes.Count > shapesCount Then
    shapesCount = Me.Shapes.Count
    With Me.Shapes(shapesCount)
        .LockAspectRatio = msoFalse
        .Width = Target.Cells(1).Width
        .Height = Target.Cells(1).Height
    End With
End If
End Sub

Это, к сожалению, не работает в эксель 2010. Макросы включены.

Скрипт · 29.10.2012, 20:33

H3nry, вы пробовали использовать код из сообщения #24 или просто думаете, что не будет работать?

@H3nry · 29.10.2012, 20:56 **[ТС]**

Сообщение от Скрипт

H3nry, вы пробовали использовать код из сообщения #24 или просто думаете, что не будет работать?

Конечно пробовал! Только что! Не работает! Вы сами попробуйте)

Скрипт · 29.10.2012, 21:06

Сообщение от H3nry

Конечно пробовал! Только что! Не работает! Вы сами попробуйте)

я бы попробовал бы, но не знаю, как попробовать (может браузер нужен определённый - у меня Internet Explorer 9).

Я создал другую ситуацию и у меня работает код из сообщения #24.

@H3nry · 29.10.2012, 21:14 **[ТС]**

Сообщение от Скрипт

я бы попробовал бы, но не знаю, как попробовать (может браузер нужен определённый - у меня Internet Explorer 9).

Я создал другую ситуацию и у меня работает код из сообщения #24.

У меня firefox 16.0.2 и Office2010 - Excel v.14 (32 разрядная).
Вот ссылка, которая у вас откроется, там картинка телевизора. Попробуйте ее перетащить при таких условиях. Скрипт не срабатывает никак.

http://chelyabinsk.mvideo.ru/p... 02030.html

Скрипт · 29.10.2012, 21:19

H3nry, да, видимо "Drag and drop" для рисунков из интернета в Excel не работает в Internet Explorer 9.
Firefox не буду устанавливать.

@H3nry · 30.10.2012, 20:55 **[ТС]**

Сообщение от Скрипт

H3nry, да, видимо "Drag and drop" для рисунков из интернета в Excel не работает в Internet Explorer 9.
Оперу не буду устанавливать.

об Опере не говорили, вроде... Firefox

кто еще может помочь с решением проблемы? работа замедляется...(

Добавлено через 23 часа 34 минуты
Уважаемые знающие люди!

Неужели никто не знает, как осуществить задачу? Откликнитесь, пожалуйста, те, кому под силу решить
это!

Спасибо!

Скрипт · 30.10.2012, 20:57

H3nry, делать больше нечего знающим людям, как на форуме сидеть и кому-то зачем-то помогать.

@H3nry · 30.10.2012, 21:01 **[ТС]**

Сообщение от Скрипт

H3nry, делать больше нечего знающим людям, как на форуме сидеть и кому-то зачем-то помогать.

Ну уж спасибо! Я же вас не заставляю, не пишите, зачем так реагировать. Это вроде как форум, создан для этого и не только. Прошу тех, кому не так сложно.

@onlinemania · 27.09.2017, 15:59

Та же задача, те же программы. Перетаскивание не работает, НО если выделить картинку на сайте, нажать Ctrl+C и вставить в Excel - РАБОТАЕТ. Спасибо огромное! )))

@Святой НякаЛайк · 29.09.2017, 21:34

Firefox, Excel 2010
Перетаскиваю с данного форума картинку-логотип на панель задач, попадаю как описано у топикстартера в окно екселя, вставляется картинка в ячейки.
Далее срабатывает код Казанского, но не в Worksheet_Change а в Worksheet_SelectionChange. Притом оговорюсь, что срабатывает код тогда, когда отпускаешь картинку и щелкаешь по ячейкам (происходит событие изменения выделения)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim shapesCount&
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Me.Shapes.Count > shapesCount Then
         shapesCount = Me.Shapes.Count
         With Me.Shapes(shapesCount)
             .LockAspectRatio = msoFalse
             .Width = Target.Width
             .Height = Target.Height
         End With
     End If
End Sub

Новые блоги и статьи Все статьи Все блоги /
Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .	Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .

@H3nry 58 / 0 / 0 Регистрация: 28.10.2012 Сообщений: 20

	Подгонка картинки под размер ячейки при "drag and drop" 28.10.2012, 18:55. Показов 18755. Ответов 34 Метки нет (Все метки) Добрый вечер, уважаемые профессионалы! Облазил кучу ресурсов, но безуспешно. Я работаю с excel 2010, подготавливаю каталоги, выдергиваю изображения методом "Drag and drop", т.е. просто "стягиваю" нужную картинку с сайта и вставляю в эксель. Но мне необходимо, чтобы при перетаскивании картинка автоматически подгонялась под размеры ячейки! Работы много, чтобы не терять во времени, не подгоняя вручную. Как это сделать? Спасибо за внимание! 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	29.10.2012, 20:33
	H3nry, вы пробовали использовать код из сообщения #24 или просто думаете, что не будет работать? 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	29.10.2012, 21:19
	H3nry, да, видимо "Drag and drop" для рисунков из интернета в Excel не работает в Internet Explorer 9. Firefox не буду устанавливать. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	30.10.2012, 20:57
	H3nry, делать больше нечего знающим людям, как на форуме сидеть и кому-то зачем-то помогать. 0

@onlinemania 0 / 0 / 0 Регистрация: 27.09.2017 Сообщений: 1
	27.09.2017, 15:59
	Та же задача, те же программы. Перетаскивание не работает, НО если выделить картинку на сайте, нажать Ctrl+C и вставить в Excel - РАБОТАЕТ. Спасибо огромное! ))) 0