Sub Rio_Chart_Clone()

'Author:    Roman Rioran Voronov
'Date:      the 4-th of September, 2014
'Feedback:  voronov_rv@mail.ru

'This is how you may create a chart and use your template on it
'with specifying table header and size

Dim X As Long 'Для обращения к новому графику

'Указываем программе, с каким листом будем работать.
'Далее эта ссылка заменяется точкой перед обращением к объектам листа.
With ThisWorkbook.Worksheets("Rio_List")

'Предосторожность для корректного построения графика
.Cells(1, 1).Select

ActiveSheet.Shapes.AddChart.Select 'Создаём и выделяем график

'Применяем к графику наш шаблон:
ActiveChart.ApplyChartTemplate (.Cells(2, 7).Value)

X = ActiveSheet.Shapes.Count 'Считаем количество фигур на активном листе. Наша - последняя.

'Далее от левой верхней ячейки таблицы вместе с заголовками до правой нижней ячейки таблицы...
ActiveChart.SetSourceData Source:=.Range("A1:C9") 'Выбираем область для создания диаграммы

ActiveChart.ChartTitle.Text = .Cells(5, 7).Value 'Задаём заголовок таблицы

'Меняем размеры таблицы
ActiveSheet.Shapes(X).Height = 283.4645669291 '10 cm высота таблицы, задаём
ActiveSheet.Shapes(X).Width = 425.1968503937 '15 cm ширина таблицы, задаём

End With
End Sub

Sub InsertGraph2()

With ThisWorkbook.Worksheets("Sheet1")
Cells(1, 1).Select

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
           "C:\... adres tut ... \Histogram_black.crtx" _
           )
X = ActiveSheet.Shapes.Count

ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$B$52")
ActiveSheet.Shapes(X).Height = 200
ActiveSheet.Shapes(X).Width = 200

End With
End Sub

ActiveSheet.Shapes.AddChart.Select

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name = "Rio_Chart"

ActiveSheet.Shapes("Rio_Chart").Name

MsgBox ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name

ActiveSheet.Shapes.AddChart.Select

"Run-time error '1004':
The specified dimension is not valid for the current chart type"

Set MyChart = ActiveSheet.ChartObjects.Add(100, 50, 200, 100)
With MyChart
     .Name = "Мой график"
     '...
End With

Sub InsertGraph2()

Dim strX As String
Dim fd As FileDialog
Dim FileChosen As Integer

Set fd = Application.FileDialog(msoFileDialogFilePicker)
FileChosen = fd.Show

If FileChosen <> -1 Then
     MsgBox "You chose cancel"
Else
     strX = fd.SelectedItems(1)
End If

With ThisWorkbook.Worksheets("Sheet1")
Cells(1, 1).Select

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate (strX)
X = ActiveSheet.Shapes.Count

ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$B$52")
ActiveSheet.Shapes(X).Height = 200
ActiveSheet.Shapes(X).Width = 200

End With
End Sub

Set MyChart = ActiveSheet.ChartObjects.Add(100, 50, 200, 100)

Sub InsertGraph2()
Dim strX As String
With Application.FileDialog(msoFileDialogFilePicker)
      If .Show Then strX = .SelectedItems(1) Else MsgBox "You've chosen cancel": Exit Sub
End With
With ActiveSheet.Shapes.AddChart
      .Chart.ApplyChartTemplate (strX)
      .Chart.SetSourceData Range("$A$1:$B$52")
      .Height = 200: .Width = 200
End With
End Sub

Sub InsertGraph2()
'Dim strX As String
'With Application.FileDialog(msoFileDialogFilePicker)
'    If .Show Then strX = .SelectedItems(1) Else MsgBox "You've chosen cancel": Exit Sub
'End With
With ActiveSheet.ChartObjects.Add(150, 250, 200, 200)
      '.Chart.ChartType = xlLine
      '.Chart.ApplyChartTemplate (strX)
      .Chart.SetSourceData Range("$A$1:$B$52")
End With
End Sub