Excel Macro take photo code into SSIS VBNet
Posted: Tue Jun 09, 2015 12:02 am
Hi,
I have excel selection that I would like to take photo then add to email body, In SSIS vb.net I can select & paste but not the takephoto tool
oBook.ActiveSheet.Range(oBooks.Application.Selection, oBooks.Application.Selection.End(-4161)).Select() oBook.ActiveSheet.Range(oBooks.Application.Selection, oBooks.Application.Selection.End(-4121)).Select()
'FAILS FROM HERE
oBook.Application.Selection.Copy()
oBook.ActiveSheet.Shapes.AddShape(, 390.0#, 104.25, 72.0#, 72.0#).Select()
oBook.Sheets("Sheet1").Shapes.SelectAll()
'oBook.ActiveSheet.Shapes.Range(Array("Picture 1")).Select()
'oBook.Application.CutCopyMode = False
Anybody assist, urgently need a solution.
Regards
I have excel selection that I would like to take photo then add to email body, In SSIS vb.net I can select & paste but not the takephoto tool
oBook.ActiveSheet.Range(oBooks.Application.Selection, oBooks.Application.Selection.End(-4161)).Select() oBook.ActiveSheet.Range(oBooks.Application.Selection, oBooks.Application.Selection.End(-4121)).Select()
'FAILS FROM HERE
oBook.Application.Selection.Copy()
oBook.ActiveSheet.Shapes.AddShape(, 390.0#, 104.25, 72.0#, 72.0#).Select()
oBook.Sheets("Sheet1").Shapes.SelectAll()
'oBook.ActiveSheet.Shapes.Range(Array("Picture 1")).Select()
'oBook.Application.CutCopyMode = False
Anybody assist, urgently need a solution.
Regards