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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос рисунка из одного листа в другой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос рисунка из одного листа в другой (Формулы/Formulas)
Перенос рисунка из одного листа в другой
Goodzel Дата: Пятница, 20.07.2018, 15:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день, знатоки Excel!
Обращаюсь к вам за помощью, перерыла весь интернет, не могу найти решения
Надо из листа "прайс" в лист "КП" перенести формулами ряд столбцов, в том числе Фото. Файл из вложения не несет особого смысла, не удивляйтесь, он взят просто в качестве примера
Рассматривала много вариантов:
1. Привязки рисунка к ячейке. Но не знаю как это сделать, но инститивно мне кажется это будет самый простой способ
Я видела подобное обсуждение, но ответа там нет
http://www.excelworld.ru/forum/2-10696-1
2. вставка в ячейку гиперссылки вместо самой картинки, но мне надо чтобы в листе прайс отображался не путь к рисунку в виде гиперссылки, а сам рисунок
3. Пыталась сделать через пример из этого обсуждения про именованный диапазон, но он годится только для одной строки, растягивать его не получается вниз
http://www.excelworld.ru/forum/2-19738-1
4. через функцию "камера" , но он также не подходит, т.к. ширина строк будет всегда разной и рисунок будет просто съезжать
Помогите, пожалуйста, доработать или вышеупомянутые варианты или что-то новое сделать, голову уже сломала(
К сообщению приложен файл: 0930489.xlsm (31.0 Kb)
 
Ответить
СообщениеДобрый день, знатоки Excel!
Обращаюсь к вам за помощью, перерыла весь интернет, не могу найти решения
Надо из листа "прайс" в лист "КП" перенести формулами ряд столбцов, в том числе Фото. Файл из вложения не несет особого смысла, не удивляйтесь, он взят просто в качестве примера
Рассматривала много вариантов:
1. Привязки рисунка к ячейке. Но не знаю как это сделать, но инститивно мне кажется это будет самый простой способ
Я видела подобное обсуждение, но ответа там нет
http://www.excelworld.ru/forum/2-10696-1
2. вставка в ячейку гиперссылки вместо самой картинки, но мне надо чтобы в листе прайс отображался не путь к рисунку в виде гиперссылки, а сам рисунок
3. Пыталась сделать через пример из этого обсуждения про именованный диапазон, но он годится только для одной строки, растягивать его не получается вниз
http://www.excelworld.ru/forum/2-19738-1
4. через функцию "камера" , но он также не подходит, т.к. ширина строк будет всегда разной и рисунок будет просто съезжать
Помогите, пожалуйста, доработать или вышеупомянутые варианты или что-то новое сделать, голову уже сломала(

Автор - Goodzel
Дата добавления - 20.07.2018 в 15:33
sboy Дата: Пятница, 20.07.2018, 16:42 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
[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.]пятница, убегаю) поэтому макрос не самый оптимальный получился, но работает. Может кто-то другое решение предложит или мой подпилит
К сообщению приложен файл: 4231622.xlsm (30.3 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
[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
Дата добавления - 20.07.2018 в 16:42
Goodzel Дата: Вторник, 24.07.2018, 19:20 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, Спасибо большое!!!
 
Ответить
Сообщениеsboy, Спасибо большое!!!

Автор - Goodzel
Дата добавления - 24.07.2018 в 19:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос рисунка из одного листа в другой (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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