Подгонка картинки под размер ячейки при "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

Новые блоги и статьи Все статьи Все блоги /
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .
Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .

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

	Подгонка картинки под размер ячейки при "drag and drop" 28.10.2012, 18:55. Показов 18661. Ответов 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