Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > [Перенесено из VB6/MS Access]В excel 2007 не работает макрос

Автор: FlaGmaN 21.3.2008, 11:40

Добрый день. Пользователи пожаловались что в 2007 офисе макрос работает не корректно, то есть картинка вставляется не вниз страницы , а в верх.

Код


код макроса If Worksheets.Count = 1 Then GoTo 1
Next i
1:


    
    If Range("123") = "23213»" Then
        Range("Ïå÷àòü").Select
    ActiveSheet.Pictures.Insert("C:\xlt\222.bmp").Select
    Range("A1").Select
    Range("G30") = ""
    Else
        Range("123").Select
    ActiveSheet.Pictures.Insert("C:\xlt\111.gif").Select
    Range("A1").Select
    End If
        
End Sub

Автор: mihanik 5.4.2008, 13:30

Ну и?

Двигаешь куда нужно рисунок

Код


    Selection.ShapeRange.IncrementLeft 252#
    Selection.ShapeRange.IncrementTop 135#

Или задаёшь конкретное положение...