|  | 
|  18.05.2009, 14:49 | #1 | 
| Участник | 
			
			image.loadFile("C:\\png.png"); image.clipboardCopy(); this.range("У_П").select(); activeSheetCom = WB.activeSheet().comObject(); activeSheetCom.PasteSpecial(format, link, displayAsIcon); Метод "PasteSpecial" в COM-объекте класса "_Worksheet" возвратил код ошибки 0x800A03EC (<неизвестно>), который означает: Метод PasteSpecial из класса Worksheet завершен неверно. Как на VBA симитировать вставка - рисунок ? Запись макроса не делается этой функции | 
|  | 
|  18.05.2009, 15:13 | #2 | 
| Moderator | 
			
			А, может, загрузку рисунка из файла на плечи Excel переложить? У меня записался примерно следующий код VBA: Код:  
Sub Macro2()
    Range("B2").Select
    ActiveSheet.Pictures.Insert "C:\0005.jpg"
End SubКод:  
Sub Macro3()
    ActiveSheet.Shapes.AddPicture _
        "C:\0005.jpg", msoFalse, msoTrue, _
        Range("B2").Left, Range("B2").Top, 100, 100
End SubПоследний раз редактировалось Gustav; 18.05.2009 в 16:02. | 
|  |