Добрый день, знатоки Excel! Обращаюсь к вам за помощью, перерыла весь интернет, не могу найти решения Надо из листа "прайс" в лист "КП" перенести формулами ряд столбцов, в том числе Фото. Файл из вложения не несет особого смысла, не удивляйтесь, он взят просто в качестве примера Рассматривала много вариантов: 1. Привязки рисунка к ячейке. Но не знаю как это сделать, но инститивно мне кажется это будет самый простой способ Я видела подобное обсуждение, но ответа там нет http://www.excelworld.ru/forum/2-10696-1 2. вставка в ячейку гиперссылки вместо самой картинки, но мне надо чтобы в листе прайс отображался не путь к рисунку в виде гиперссылки, а сам рисунок 3. Пыталась сделать через пример из этого обсуждения про именованный диапазон, но он годится только для одной строки, растягивать его не получается вниз http://www.excelworld.ru/forum/2-19738-1 4. через функцию "камера" , но он также не подходит, т.к. ширина строк будет всегда разной и рисунок будет просто съезжать Помогите, пожалуйста, доработать или вышеупомянутые варианты или что-то новое сделать, голову уже сломала(
Добрый день, знатоки Excel! Обращаюсь к вам за помощью, перерыла весь интернет, не могу найти решения Надо из листа "прайс" в лист "КП" перенести формулами ряд столбцов, в том числе Фото. Файл из вложения не несет особого смысла, не удивляйтесь, он взят просто в качестве примера Рассматривала много вариантов: 1. Привязки рисунка к ячейке. Но не знаю как это сделать, но инститивно мне кажется это будет самый простой способ Я видела подобное обсуждение, но ответа там нет http://www.excelworld.ru/forum/2-10696-1 2. вставка в ячейку гиперссылки вместо самой картинки, но мне надо чтобы в листе прайс отображался не путь к рисунку в виде гиперссылки, а сам рисунок 3. Пыталась сделать через пример из этого обсуждения про именованный диапазон, но он годится только для одной строки, растягивать его не получается вниз http://www.excelworld.ru/forum/2-19738-1 4. через функцию "камера" , но он также не подходит, т.к. ширина строк будет всегда разной и рисунок будет просто съезжать Помогите, пожалуйста, доработать или вышеупомянутые варианты или что-то новое сделать, голову уже сломала(Goodzel
Sub pic() Dim shp As Shape Application.ScreenUpdating = False For Each shp In Sheets(1).Shapes shp.Name = shp.BottomRightCell.Offset(0, -2).Value Next Sheets(2).Activate For i = 2 To Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row Sheets(1).Shapes(Cells(i, 3).Value).Copy Cells(i, 4).Activate ActiveSheet.Paste With ActiveSheet.Shapes(Cells(i, 3).Value) .Top = .Top + 5 .Left = .Left + 20 End With Next Application.ScreenUpdating = True End Sub
[/vba] [p.s.]пятница, убегаю) поэтому макрос не самый оптимальный получился, но работает. Может кто-то другое решение предложит или мой подпилит
Добрый день. [vba]
Код
Sub pic() Dim shp As Shape Application.ScreenUpdating = False For Each shp In Sheets(1).Shapes shp.Name = shp.BottomRightCell.Offset(0, -2).Value Next Sheets(2).Activate For i = 2 To Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row Sheets(1).Shapes(Cells(i, 3).Value).Copy Cells(i, 4).Activate ActiveSheet.Paste With ActiveSheet.Shapes(Cells(i, 3).Value) .Top = .Top + 5 .Left = .Left + 20 End With Next Application.ScreenUpdating = True End Sub
[/vba] [p.s.]пятница, убегаю) поэтому макрос не самый оптимальный получился, но работает. Может кто-то другое решение предложит или мой подпилитsboy