Nu reusesc sa dau de cap unei probleme si va rog mult de tot sa ma ajutati.
Am un usrform multipage cu 4 pagini si pe fiecare pagina vreau sa aduc un chart din Sheet1. Este posibil ca numarul de pagini sa creasca si toate vor avea un chart.
Totul functioneaza bine pana la salvarea si redeschiderea fisierului cand imi da eroare la una dintre pagini la linia:
Cod: Selectaţi tot
Me.Image4.Picture = LoadPicture(Fname)
Cod: Selectaţi tot
Option Explicit
Dim Fname As String
Dim MyChart As Chart
Private Sub CommandButton1_Click()
Set MyChart = Sheets("Sheet1").ChartObjects(1).Chart
Fname = ThisWorkbook.Path & "\temp1.gif"
MyChart.Export Filename:=Fname, FilterName:="GIF"
Me.Image1.Picture = LoadPicture(Fname)
End Sub
Private Sub CommandButton2_Click()
Set MyChart = Sheets("Sheet1").ChartObjects(2).Chart
Fname = ThisWorkbook.Path & "\temp1.gif"
MyChart.Export Filename:=Fname, FilterName:="GIF"
Me.Image2.Picture = LoadPicture(Fname)
End Sub
Private Sub CommandButton3_Click()
Set MyChart = Sheets("Sheet1").ChartObjects(3).Chart
Fname = ThisWorkbook.Path & "\temp1.gif"
MyChart.Export Filename:=Fname, FilterName:="GIF"
Me.Image3.Picture = LoadPicture(Fname)
End Sub
Private Sub CommandButton4_Click()
Set MyChart = Sheets("Sheet1").ChartObjects(4).Chart
Fname = ThisWorkbook.Path & "\temp1.gif"
MyChart.Export Filename:=Fname, FilterName:="GIF"
Me.Image4.Picture = LoadPicture(Fname)
End Sub
Private Sub CommandButton5_Click()
With ThisWorkbook
.Save
.Close
End With
End Sub
Multumesc.