need a little help with LoadPicture

[tango71]

ok, so here goes. what im trying to achieve is to be able to grab the exact replica or photo of everything included in " Front of check" worksheet and view it on a separate form in vba after clicking a button. sort of like a photo preview. however, when i debug it it crashes at

Set Picture = LoadPicture("C:\CheckMaster\temp\MyPic.jpg")

what the heck am i missing? Ive been at this for about 3 hours and have tried other things too.

here is what i have so far...

Private Sub CommandButton1_Click()Sheets(" Front of check").Activate
'Prepare to copy
Range("A1:L20").Copy
Sheets("sheet3").Activate
Range("A1").Select
ActiveSheet.Pictures.Paste Link:=True
ActiveSheet.Pictures.Select
Application.CutCopyMode = False
Dim myChart As String, myPicture As String
Dim picWidth As Long, picHeight As Long


Application.ScreenUpdating = False


myPicture = Selection.Name
With Selection
picHeight = .ShapeRange.Height
picWidth = .ShapeRange.Width
End With


Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
Selection.Border.LineStyle = 0
myChart = Selection.Name & " " & Split(ActiveChart.Name, " ")(2)




 
With ActiveSheet
With .Shapes(myChart)
.Width = picWidth
.Height = picHeight
End With


.Shapes(myPicture).Copy


With ActiveChart
.ChartArea.Select
.Paste
End With


.ChartObjects(1).Chart.Export Filename:="C:\CheckMaster\temp\MyPic.jpg", FilterName:="jpg"
.Shapes(myChart).Cut
End With

Application.ScreenUpdating = True

Set Picture = LoadPicture("C:\CheckMaster\temp\MyPic.jpg")
ActiveSheet.Pictures.Delete


End Sub

 

[tango71]

when i downloaded your example, i ran it and it came up with errors. so im thinking my 365 got corrupted somehow. im going to to do a fresh install and see if that does the trick. out of everything that has been tried at least 1 of them should have worked. ill post the results after clean install.

 

[DanteAmor]

I'm running in Excel 2007, maybe someone can help us with the code for 365.