Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Открыть гиперссылку с картинкой макросом и вставить в ячейку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть гиперссылку с картинкой макросом и вставить в ячейку (Макросы/Sub)
Открыть гиперссылку с картинкой макросом и вставить в ячейку
Nikita-kr Дата: Четверг, 27.08.2015, 11:20 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день!
Существует потребность обработки большого количества гиперссылок и картинок

Суть задачи (файл прилагаю)
В столбце А1,2,3,4....n находятся гиперссылки с указанием даты и времени (постоянно разные) на картинку
1. Необходимо в ячейку В1,2,3,4....n вставить картинку
Размеры ячеек "B" (ШхВ - 18х110)
2. Формат и свойства рисунка ( высота - 3 см, ширина - 2 см, свойства "Перемещать и изменять объект вместе с ячейками)

Не знаю может ли такое Эксель, прошу помочь.
Заранее благодарен
К сообщению приложен файл: 0525828.xls (23.0 Kb)
 
Ответить
СообщениеДобрый день!
Существует потребность обработки большого количества гиперссылок и картинок

Суть задачи (файл прилагаю)
В столбце А1,2,3,4....n находятся гиперссылки с указанием даты и времени (постоянно разные) на картинку
1. Необходимо в ячейку В1,2,3,4....n вставить картинку
Размеры ячеек "B" (ШхВ - 18х110)
2. Формат и свойства рисунка ( высота - 3 см, ширина - 2 см, свойства "Перемещать и изменять объект вместе с ячейками)

Не знаю может ли такое Эксель, прошу помочь.
Заранее благодарен
Автор - Nikita-kr
Дата добавления - 27.08.2015 в 11:20
alex77755 Дата: Четверг, 27.08.2015, 12:33 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

В готовых решениях не смотрел?
К сообщению приложен файл: _____.rar (17.4 Kb)

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
СообщениеВ готовых решениях не смотрел?
Автор - alex77755
Дата добавления - 27.08.2015 в 12:33
Nikita-kr Дата: Четверг, 27.08.2015, 12:58 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо, похоже это то, что нужно
Только при нажатии на кнопку "Start" ничего не происходит :(
Макросы в книге включены
Что я делаю не так?
 
Ответить
СообщениеСпасибо, похоже это то, что нужно
Только при нажатии на кнопку "Start" ничего не происходит :(
Макросы в книге включены
Что я делаю не так?
Автор - Nikita-kr
Дата добавления - 27.08.2015 в 12:58
leskris Дата: Четверг, 27.08.2015, 14:12 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 90
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016 (Office 365)
у меня работает, только пришлось долго ждать...
 
Ответить
Сообщениеу меня работает, только пришлось долго ждать...
Автор - leskris
Дата добавления - 27.08.2015 в 14:12
Nikita-kr Дата: Четверг, 27.08.2015, 15:37 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
У меня он открыт уже часа 2, все равно никакой реакции на запуск макроса :(
 
Ответить
СообщениеУ меня он открыт уже часа 2, все равно никакой реакции на запуск макроса :(
Автор - Nikita-kr
Дата добавления - 27.08.2015 в 15:37
Nikita-kr Дата: Четверг, 27.08.2015, 15:46 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Уже пробовал сохранить как книгу с поддержкой макросов.
Выделенная ячейка имеет значение?
Извиняюсь за глупые вопросы. Не силен в макросах, но очень нужно решить задачу для обработки огромного количества информации %)
 
Ответить
СообщениеУже пробовал сохранить как книгу с поддержкой макросов.
Выделенная ячейка имеет значение?
Извиняюсь за глупые вопросы. Не силен в макросах, но очень нужно решить задачу для обработки огромного количества информации %)
Автор - Nikita-kr
Дата добавления - 27.08.2015 в 15:46
Manyasha Дата: Четверг, 27.08.2015, 16:41 | Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 901 ±
Замечаний: 0% ±

Excel 2010, 2016
Nikita-kr, у меня все быстро работает и с расширением xls и с xlsm.
Цитата Nikita-kr, 27.08.2015 в 15:46, в сообщении № 6
Выделенная ячейка имеет значение?
нет

Может макрос с кнопки слетел? Нажмите ПКМ по кнопке старт - назначить макрос - выберите макрос pic.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеNikita-kr, у меня все быстро работает и с расширением xls и с xlsm.
Цитата Nikita-kr, 27.08.2015 в 15:46, в сообщении № 6
Выделенная ячейка имеет значение?
нет

Может макрос с кнопки слетел? Нажмите ПКМ по кнопке старт - назначить макрос - выберите макрос pic.
Автор - Manyasha
Дата добавления - 27.08.2015 в 16:41
Nikita-kr Дата: Понедельник, 31.08.2015, 09:19 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Помогите, пожалуйста его скорректировать под прилагаемый файл
Нужно чтобы картинки загружалась с столбец "I"
К сообщению приложен файл: 6855250.xls (34.5 Kb)
 
Ответить
СообщениеПомогите, пожалуйста его скорректировать под прилагаемый файл
Нужно чтобы картинки загружалась с столбец "I"
Автор - Nikita-kr
Дата добавления - 31.08.2015 в 09:19
SLAVICK Дата: Понедельник, 31.08.2015, 10:05 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Вот. Нужно было всего три строки подправить :D
Еще немного изменил функцию вставки картинки(2-й файл) - по моему так лучше будет :)
К сообщению приложен файл: 6725797.xls (52.5 Kb) · 1592551-1-.xls (45.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Понедельник, 31.08.2015, 10:16
 
Ответить
СообщениеВот. Нужно было всего три строки подправить :D
Еще немного изменил функцию вставки картинки(2-й файл) - по моему так лучше будет :)
Автор - SLAVICK
Дата добавления - 31.08.2015 в 10:05
Nikita-kr Дата: Понедельник, 31.08.2015, 10:22 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Супер, спасибо добрый человек!

А можно еще в свойствах рисунка как-то автоматом закреплять его к ячейкам?
 
Ответить
СообщениеСупер, спасибо добрый человек!

А можно еще в свойствах рисунка как-то автоматом закреплять его к ячейкам?
Автор - Nikita-kr
Дата добавления - 31.08.2015 в 10:22
SLAVICK Дата: Понедельник, 31.08.2015, 10:37 | Сообщение № 11
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата Nikita-kr, 31.08.2015 в 10:22, в сообщении № 10
как-то автоматом закреплять его к ячейкам?

Вот:
[vba]
Код
ph.Placement = xlMoveAndSize
[/vba]
К сообщению приложен файл: 1592551-1-1-.xls (54.5 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата Nikita-kr, 31.08.2015 в 10:22, в сообщении № 10
как-то автоматом закреплять его к ячейкам?

Вот:
[vba]
Код
ph.Placement = xlMoveAndSize
[/vba]
Автор - SLAVICK
Дата добавления - 31.08.2015 в 10:37
Nikita-kr Дата: Вторник, 01.09.2015, 11:07 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
alex77755, SLAVICK, Спасибо вам огромное за помощь!!!
Рад, что есть люди готовые прийти на помощь и поделится своими навыками и знаниями!

И надеюсь последний вопрос по данной теме.
Почему то макрос обрабатывает до 70 гиперссылок
Можно ли сделать обработку бОльшего количества?
у меня около 5000 строк для обработки
 
Ответить
Сообщениеalex77755, SLAVICK, Спасибо вам огромное за помощь!!!
Рад, что есть люди готовые прийти на помощь и поделится своими навыками и знаниями!

И надеюсь последний вопрос по данной теме.
Почему то макрос обрабатывает до 70 гиперссылок
Можно ли сделать обработку бОльшего количества?
у меня около 5000 строк для обработки
Автор - Nikita-kr
Дата добавления - 01.09.2015 в 11:07
SLAVICK Дата: Вторник, 01.09.2015, 13:41 | Сообщение № 13
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата Nikita-kr, 01.09.2015 в 11:07, в сообщении № 12
Почему то макрос обрабатывает до 70 гиперссылок

Это связано со строкой :
[vba]
Код
For Each rCell In Range("g2:g7" & Cells(Rows.Count, 3).End(xlUp).Row)
[/vba]
Я отвлекся и недоправил shock . Замените ее на:
[vba]
Код
For Each rCell In Range("g2:g" & Cells(Rows.Count, 7).End(xlUp).Row)
[/vba]

Добавил еще статус выполнения - для 5000 - будет полезно yes
К сообщению приложен файл: 1592551-1-1-2-.xls (46.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Вторник, 01.09.2015, 13:46
 
Ответить
Сообщение
Цитата Nikita-kr, 01.09.2015 в 11:07, в сообщении № 12
Почему то макрос обрабатывает до 70 гиперссылок

Это связано со строкой :
[vba]
Код
For Each rCell In Range("g2:g7" & Cells(Rows.Count, 3).End(xlUp).Row)
[/vba]
Я отвлекся и недоправил shock . Замените ее на:
[vba]
Код
For Each rCell In Range("g2:g" & Cells(Rows.Count, 7).End(xlUp).Row)
[/vba]

Добавил еще статус выполнения - для 5000 - будет полезно yes
Автор - SLAVICK
Дата добавления - 01.09.2015 в 13:41
Nikita-kr Дата: Пятница, 11.12.2015, 13:41 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Доброго времени суток!
помогите подкорректировать макрос
Изменился вид гиперссылки и теперь картинка не отображается в ячейке ("Сейчас не удается отобразить рисунок")
Пример файла с гиперссылками прилагаю
в ячейке G2 - старый вариант гиперссылки
в ячейке G3 - новый вариант гиперссылки

Заранее благодарю за помощь
К сообщению приложен файл: __.xls (52.5 Kb)
 
Ответить
СообщениеДоброго времени суток!
помогите подкорректировать макрос
Изменился вид гиперссылки и теперь картинка не отображается в ячейке ("Сейчас не удается отобразить рисунок")
Пример файла с гиперссылками прилагаю
в ячейке G2 - старый вариант гиперссылки
в ячейке G3 - новый вариант гиперссылки

Заранее благодарю за помощь
Автор - Nikita-kr
Дата добавления - 11.12.2015 в 13:41
SLAVICK Дата: Пятница, 11.12.2015, 14:31 | Сообщение № 15
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Потому что у Вас были ссылки:
https://lh3.googleusercontent.com/PNa9aIMvqkTy
а стали
http://www.visitbasis.com/image?http://lh3.googleusercontent.com/NQtP
Добавил разрыв по http -
[vba]
Код
         s = rCell.Hyperlinks(1).Address
         s = "http" & Split(s, "http")(UBound(Split(s, "http")))
         ВставитьКартинку rCell.Offset(0, 2), s, True, True, True
[/vba]
проверяйте. :D
К сообщению приложен файл: 4469410.xls (56.5 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеПотому что у Вас были ссылки:
https://lh3.googleusercontent.com/PNa9aIMvqkTy
а стали
http://www.visitbasis.com/image?http://lh3.googleusercontent.com/NQtP
Добавил разрыв по http -
[vba]
Код
         s = rCell.Hyperlinks(1).Address
         s = "http" & Split(s, "http")(UBound(Split(s, "http")))
         ВставитьКартинку rCell.Offset(0, 2), s, True, True, True
[/vba]
проверяйте. :D
Автор - SLAVICK
Дата добавления - 11.12.2015 в 14:31
Nikita-kr Дата: Пятница, 11.12.2015, 14:51 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Вячеслав, спасибо Вам огромное, добрый человек respect
 
Ответить
СообщениеВячеслав, спасибо Вам огромное, добрый человек respect
Автор - Nikita-kr
Дата добавления - 11.12.2015 в 14:51
vladislaf Дата: Четверг, 20.10.2016, 12:29 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 1 ±
Замечаний: 20% ±

Excel 2013
Товарищи, подправьте пожалуйста макрос с этой темы, под мои нужны, пример в приложении. Могу оплатить 500 на карту.

Фотографии большие, их надо уменьшить до примерно 200 пикселей в ширину, чтобы видно было, но много места не занимали.
Строчки раздвигать по высоте фотографий.
К сообщению приложен файл: 3258048.xlsx (35.7 Kb)
 
Ответить
СообщениеТоварищи, подправьте пожалуйста макрос с этой темы, под мои нужны, пример в приложении. Могу оплатить 500 на карту.

Фотографии большие, их надо уменьшить до примерно 200 пикселей в ширину, чтобы видно было, но много места не занимали.
Строчки раздвигать по высоте фотографий.
Автор - vladislaf
Дата добавления - 20.10.2016 в 12:29
Pelena Дата: Четверг, 20.10.2016, 12:35 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация: 4549 ±
Замечаний: ±

Excel 365 & Mac Excel
vladislaf, не надо раскидывать вопросы по разным темам. Подождите ответа во ФРИЛАНСЕ

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеvladislaf, не надо раскидывать вопросы по разным темам. Подождите ответа во ФРИЛАНСЕ
Автор - Pelena
Дата добавления - 20.10.2016 в 12:35
ZAA Дата: Пятница, 08.11.2019, 16:53 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день.
Подскажите пожалуйста, почему данный способ не работает в Excel 2007?

Выскакивает "ошибка при импорте файла"

В 2010 всё работает без проблем
К сообщению приложен файл: 0205628.jpg (52.9 Kb)


Сообщение отредактировал ZAA - Пятница, 08.11.2019, 16:54
 
Ответить
СообщениеДобрый день.
Подскажите пожалуйста, почему данный способ не работает в Excel 2007?

Выскакивает "ошибка при импорте файла"

В 2010 всё работает без проблем
Автор - ZAA
Дата добавления - 08.11.2019 в 16:53
Pelena Дата: Пятница, 08.11.2019, 17:14 | Сообщение № 20
Группа: Админы
Ранг: Местный житель
Сообщений: 19401
Репутация: 4549 ±
Замечаний: ±

Excel 365 & Mac Excel
ZAA, не надо дублировать вопросы, тем более в чужой теме.
Эта тема закрыта

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеZAA, не надо дублировать вопросы, тем более в чужой теме.
Эта тема закрыта
Автор - Pelena
Дата добавления - 08.11.2019 в 17:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть гиперссылку с картинкой макросом и вставить в ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!