airyashov писал(а):а не можите выложить здесь посмотреть сколько приходилось работать, с картинками в excel не очень удобно.
Добрый день, а как его выложить, управление вложениями не пускает файл к прикреплению, вот макрос:
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
ActiveSheet.Pictures.Insert("C:\Documents and Settings\R_Menshikov\Рабочий стол\Photo\" & CStr(kartinka) & ".jpg").Select
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
Есть одна проблема, он работает в Excel 2003, в Excel 2007 работает не корректно, может кто может помочь с адаптацией, макрос должен вставлять каждую картинку напротив ячейки с ее цифровым значением, в 2007 он сваливает их все в одну кучу.
Помогите если можете.
[quote="airyashov"]а не можите выложить здесь посмотреть сколько приходилось работать, с картинками в excel не очень удобно.[/quote]
Добрый день, а как его выложить, управление вложениями не пускает файл к прикреплению, вот макрос:
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
ActiveSheet.Pictures.Insert("C:\Documents and Settings\R_Menshikov\Рабочий стол\Photo\" & CStr(kartinka) & ".jpg").Select
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
Есть одна проблема, он работает в Excel 2003, в Excel 2007 работает не корректно, может кто может помочь с адаптацией, макрос должен вставлять каждую картинку напротив ячейки с ее цифровым значением, в 2007 он сваливает их все в одну кучу.
Помогите если можете.