График в Excel

Private Sub CommandButton1_Click()
Dim х_нз, х_пз, х_шаг As Double
Dim УрГрафика As String
Dim nx As Integer
Dim n, i As Integer
If IsNumeric(TextBox2.Text) = False Then
MsgBox "ошибка в начальном значении х", vbInformation, "График"
TextBox2.SetFocus
Exit Sub
End If
If IsNumeric(TextBox3.Text) = False Then
MsgBox "ошибка в шаге", vbInformation, "График"
TextBox3.SetFocus
Exit Sub
End If
If IsNumeric(TextBox4.Text) = False Then
MsgBox "ошибка в конечном значении х", vbInformation, "График"
TextBox4.SetFocus
Exit Sub
End If
х_нз = CDbl(TextBox2.Text)
х_шаг = CDbl(TextBox3.Text)
х_пз = CDbl(TextBox4.Text)
УрГрафика = Trim(TextBox1.Text)
If х_нз >= х_пз Then
MsgBox "Начальное значение х слишком большое", vbInformation, "График"
TextBox2.SetFocus
Exit Sub
End If
If х_нз + х_шаг >= х_пз Then
MsgBox "Шаг х великоват", vbInformation, "График"
TextBox3.SetFocus
Exit Sub
End If
i = 1
Do
If Mid(УрГрафика, i, 1) = "x" Or Mid(УрГрафика, i, 1) = "X" Then
n = Len(УрГрафика)
If (1 < i) And (i < n) Then
УрГрафика = Left(УрГрафика, i - 1) & "$A1" & Right(УрГрафика, n - 1)
End If
If i = 1 Then УрГрафика = "$A1" & Right(УрГрафика, n - 1)
If i = n Then УрГрафика = Left(УрГрафика, n - 1) & "$A1"
End If
i = i + 1
Loop While i <= Len(УрГрафика)
ActiveSheet.Cells.Select
Selection.Clear
ActiveSheet.Range("a1").Select
With ActiveSheet
Range("A1").Value = х_нз
Range("a1").DataSeries RowCol:=xlColumns, Type:=xlLinear, Step:=х_шаг, Stop:=х_пз, Trend:=False
End With
With ActiveSheet
nx = Range("a1").CurrentRegion.Rows.Count
Range("b1").FormulaLocal = УрГрафика
If IsError(Evaluate(УрГрафика)) = True Then
MsgBox "Ошибка в формуле", vbExclamation, "График"
Exit Sub
End If
Range("b1").AutoFill Destination:=Range(Cells(1, 2), Cells(nx, 2)), Type:=xlFillDefault
End With
If ActiveSheet.ChartObject.Count <> 0 Then ActiveSheet.Range(Cells(1, 2), Cells(nx, 2)).Select
ActiveSheet.ChartObjects.Add(20, 19.5, 192, 192).Select
Application.CutCopyMode = False
ActiveChart.ChartWizard Source:=Range(Cells(1, 1), Cells(nx, 2)), Gallery:=xlLine, Format:=2, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=False, Title:="График", CategoryTitle:="Аргумент", ValueTitle:="Функция y" & TextBox1.Text
ActiveSheet.ChartObjects(1).Active
ActiveChart.Axes(xlValue).AxisTitle.Select
With Selection
HorizontalAlignment = xlCenter
VerticalAlignment = xlCenter
Orientation = xlUpward
End With
ActiveChart.Export Filename:="Graph.jpg", FilterName:="JPEG"
UserForm1.Image1.Picture = LoadPicture("graph.jpg")
ActiveSheet.Range("A1").Select
End Sub
 
 
Private Sub UserForm_initialize()
Image1.PictureAlignment = fmPictureAlignmentTopLeft
Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub