Страницы: 1
RSS
Расстановка картинок в ексель
 
Всем добрый вечер!
Помогите с задачей,. У меня есть макрос который автоматически вставляет 50 картинок, но вставляет их все друг на друга, как можно автоматически их расставить рядом друг с другом например. Чтобы в ручную их не растаскивать. Если какие способы.
Заранее огромное спасибо, выручите)
 
Если у вас есть макрос, который вставляет картинки, то необходимо в этот макрос прописать позиции картинок.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
что-нибудь в этом роде
Код
Sub test()
    Dim sh As Shape
    Dim j As Double
    j = 0
    For Each sh In ActiveSheet.Shapes
        sh.Left = j
        j = j + sh.Width
    Next sh
End Sub
 
Спасибо, то что надо!))
Страницы: 1
Наверх