Developing.ru

airyashov писал(а):вот эти, можите кинуть файл excel с установленными параметрами хотябы для 1 ячейки, т.е. полностью 1 строка сформатированная как нужно
Selection.ShapeRange.Left =
Selection.ShapeRange.Top =

airyashov писал(а):спасибо, так и думал через select, попробую на 2007
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
для 2007
попробуйте подобрать параметры

Код: Выделить всё

Sub Vstavka_Kartinok()
Sheets("Ëèñò1").Select
x = 1
Range("A1").Select
While Sheets("Ëèñò1").Cells(x, 2).Text <> ""
x = x + 1
Wend
x = x - 1
For i = 2 To x
kartinka = Sheets("Ëèñò1").Cells(i, 2).Value
Range("E" & CStr(i)).Select
Dim SR As ShapeRange

ActiveSheet.Pictures.Insert("C:\1\" & CStr(kartinka) & ".jpg").Select
'Set SR = Selection.ShapeRange

[B]Selection.ShapeRange.Left = 200
Selection.ShapeRange.Top = 100 * (i - 2)[/B]

Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 152.2
Selection.ShapeRange.Width = 183.75
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
Next i
MsgBox ("Ôîòî óñïåøíî âñòàâëåíû")
End Sub

Sub InsertShapeNode()
    ActiveSheet.Shapes(1).Select
    With Selection.ShapeRange
        If .Type = msoFreeform Then
            .Nodes.Insert _
                Index:=3, SegmentType:=msoSegmentCurve, _
                EditingType:=msoEditingSymmetric, X1:=35, Y1:=100
            .Fill.ForeColor.RGB = RGB(0, 0, 200)
            .Fill.Visible = msoTrue
        Else
            MsgBox "This shape is not a Freeform object."
        End If
    End With
End Sub

airyashov писал(а):а не можите выложить здесь посмотреть сколько приходилось работать, с картинками в excel не очень удобно.

airyashov писал(а):незнаю с какой системой вы работайте, но такое довольно просто написать на 1с 8,а затем сохранить в лист excel