Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставка изображений в объединенные ячейки
 
#1
03.04.2014 16:04:41
Макрос вставляет рисунки в конкретную ячейку А3, а мне необходимо, чтобы рисунки вставлялись в объединенные ячейки, скажем А3:А8. Есть ли решение?
Офис 2007
Файлы прикладываю. Папку закинуть в корень "С"
 
 
 
#2
03.04.2014 16:32:50
Так?
Код
Sub Имя(strFileName As String)
    With ActiveSheet.Pictures.Insert(strFileName).ShapeRange
      .LockAspectRatio = msoFalse
      .Top = ActiveCell.Top
      .Left = ActiveCell.Left
      .Width = ActiveCell.MergeArea.Width
      .Height = ActiveCell.MergeArea.Height
    End With
End Sub
 
 
 
#3
03.04.2014 16:39:16
Макрос писал не я. Посему, сложно сказать. Вывод картинки выглядит так (если я правильно понимаю):

Код
Sub ВставитьКартинку(ByRef cell As Range, ByVal Pic As String)
    On Error Resume Next
    Dim ph As Picture: Set ph = cell.Parent.Pictures.Insert(Pic)
    ph.Top = cell.Top: ph.Left = cell.Left: k = ph.Width / ph.Height
    ph.Width = cell.Width: ph.Height = ph.Width / k
    cell.EntireRow.RowHeight = ph.Height
End Sub
 
 
 
#4
03.04.2014 16:56:32
Цитата
Иван Амелин пишет:
Макрос писал не я
Так спросите того, кто писал. Я запускал макрос Фото и правил Sub Имя(), который он вызывает.
 
 
 
#5
03.04.2014 17:06:18
Спросить не представляется возможным. К моему глубочайшему сожалению.
Ваш вариант не растягивает рисунок по объединенным ячейкам. Рис да, встает, но растягивает только одну ячейку
 
 
 
#6
03.04.2014 18:12:09
Цитата
Иван Амелин пишет:
Ваш вариант не растягивает рисунок по объединенным ячейкам
Если это не растяжка - что тогда растяжка? Приложите файл с тем, что Вы хотите. И напишите, что именно Вы запускаете, а то в книге много лишнего кода.
 
 
 
#7
03.04.2014 18:24:37
Гм... Я вам завидую. У вас работает.
У меня не получается убрать лишнее. Мне кажется, что все взаимосвязано, простите - я слишком слаб в vba, точнее, практически никак
 
 
 
#8
03.04.2014 19:09:15
Казанский,
Вы можете помочь и отрихтовать мой  код? А я, в виде ответной любезности, могу на телефон закинуть денюжку, а?
 
 
 
#9
03.04.2014 20:20:03
Вечером сделаю (сейчас с телефона). А кросспостить не надо!
Изменено: Казанский - 03.04.2014 20:22:54
 
 
 
#10
03.04.2014 23:02:57
Кросспостить? Термин незнаком. Что означает?
Если выразился неподобающе - прошу извинить

...А, понял-понял!
Изменено: Иван Амелин - 03.04.2014 23:05:07
 
 
 
#11
03.04.2014 23:05:54
Цитата
Иван Амелин пишет:
Кросспостить? Термин незнаком. Что означает?
п. 4.1 Правил почитайте. А лучше все Правила...
 
 
 
#12
03.04.2014 23:05:57
Цитата
4. Не рекомендуется
   4.1. Создавать одинаковые темы или сообщения в разных форумах (cross-posting). Публикуя один и тот же вопрос в разных форумах и на дружественных сайтах вы заставляете сразу нескольких людей параллельно думать над вашей задачей и обесцениваете усилия тех, кто даст ответ вторым-третьим и т.д.
 
 
 
Страницы: 1
Читают тему
Наверх