Sub gif保存()
Dim cname As String  'シートに表示されているチャート名
Dim gname As String  'gif保存のチャート名

' チャート名
For Each zu In ActiveSheet.ChartObjects               '[1]
    cname = zu.Name
Next
If cname = "" Then
   MsgBox "このシートにグラフがありません"
   Exit Sub
End If
    
'保存場所確認                                         '[2]
    phn = ActiveWorkbook.Path
    
'保存ファイル名
    gname = "TestChart"                               '[3]
    
    msg = "縮小する場合は縮小率を入力して下さい。" & Chr$(10) & Chr$(10) _
    & "　　例：８０％→８０　（数字のみ入力）"
  ritu = Application.InputBox(msg, "縮小率の指定", "100", Type:=1)       '[4]
  If ritu = False Then
     Exit Sub
  End If
  
'拡大・縮小                                                              '[5]
  ritu1 = ritu / 100
   ActiveSheet.Shapes(cname).ScaleWidth ritu1, msoFalse, msoScaleFromTopLeft
   ActiveSheet.Shapes(cname).ScaleHeight ritu1, msoFalse, msoScaleFromTopLeft
  
'gif化                                                                   '[6]
   ActiveSheet.ChartObjects(cname).Chart.Export phn & "\" & gname & ".gif"
   
'後処理                                                                  '[7]
    MsgBox "「" & phn & "\" & gname & ".gif」へ保存しました"
End Sub

Sub プリント()
Dim cname As String  'シートに表示されているチャート名
' チャート名
For Each zu In ActiveSheet.ChartObjects              '[1]
    cname = zu.Name
Next
If cname = "" Then
   MsgBox "このシートにグラフがありません"
   Exit Sub
End If

'印刷                                                '[2]
	ActiveSheet.ChartObjects(cname).Activate  
    	ActiveChart.ChartArea.Select
   	ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

txtファイル元データ	シートへ取込済みデータ

Dim fname As String '指定したtxtファイル名

Sub txtファイル読込()

'ファイル指定　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'[1]
 flt$ = "txtファイル(*.txt),*.txt"　　　　　　　　
fname = Application.GetOpenFilename(flt$, , Title:="txtファイル指定")

If fname = "False" Then
    MsgBox "txtファイル指定の指定がありません"
    Exit Sub
Else
    Call 銘柄表取込                                                    '[2]
End If
End Sub

[1]GetOpenFilename →　ファイルダイアログ表示（下図）（本例はファイルの種類は"txt")


[2] プロシージャ[銘柄表取込]コール

'----------------------------------------------------------------------------
Sub 銘柄表取込()
Dim dat(3000, 1) As String

'過去削除                                              '[1]
Cells.Select
    Selection.ClearContents
    Range("A1").Select

'txtデ−タ取り込み                         
    i = 0
    Open fname For Input As #1                          '[2]                 
Do Until EOF(1)                                         '[3]
    On Error GoTo rest                                  '[4]
    Input #1, dat(i, 0), dat(i, 1)                      '[5]                    
    On Error GoTo 0
     i = i + 1                      
Loop
Close #1                                                '[6]

Range(Cells(3, 1), Cells(i + 3, 2)).Value = dat         '[7]

Application.StatusBar = fname & "から[" & i & "]件取り込みました"

Exit Sub
rest:                                                   '[8]
   Close #1
   MsgBox fname & "ファイルのデータ取得に失敗しました。"
   On Error GoTo 0
End Sub

Sub テキスト化保存()
Application.ScreenUpdating = False
'txtファイル名の指定
   csvmane = "tmp"

'保存場所指定
phn = ThisWorkbook.Path                        '[1]
bok1 = ThisWorkbook.Name

'仮に別ブックへ貼り付け                        '[2]
Workbooks.Add
bok2 = ActiveWorkbook.Name
Windows(bok1).Activate
    Cells.Select
    Selection.Copy
Windows(bok2).Activate
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    
'csv保存                                        '[3]
fff = phn & "\" & csvmane
ActiveWorkbook.SaveAs Filename:=fff, FileFormat:=xlCSV, _
        CreateBackup:=False
    Range("A1").Select
    
'CSVで保存したファイルを閉じる                  '[4]
ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
    
'csvをtxtに変える                               '[5]
fchk = Dir(phn & "\" & csvmane & ".txt")
If fchk = "" Then
    Name fff & ".csv" As phn & "\" & csvmane & ".txt"
Else
    Kill phn & "\" & csvmane & ".txt"
    Name fff & ".csv" As phn & "\" & csvmane & ".txt"
End If

'最終処理                                       '[6]
Windows(bok1).Activate
    Range("A1").Select
MsgBox phn & " へ　" & csvmane & ".txt を保存しました。"

End Sub

Const NISSUU As Integer = 8  '平均する日数

Sub 関数例()
'最終セル
    Cells(10000, 1).End(xlUp).Select
    endr = ActiveCell.Row
    Range("A2").Select

'移動平均 ------------------------------------------
Cells(3, 8) = NISSUU & "移動平均"
endr1 = endr - NISSUU

Range(Cells(4, 8), Cells(endr1, 8)).Formula = "=AVERAGE(F5:F" & NISSUU + 3 & ")"  '(1)
    Columns("H").Select
    Selection.NumberFormatLocal = "0.0_ "
    Range("G1").Select

'カイリ率計算 ------------------------------------------
Cells(3, 9) = "カイリ率"
Range(Cells(4, 9), Cells(endr1, 9)).Formula = "=(F4-H4)/H4*100"                   '(2)
    Columns("I").Select
    Selection.NumberFormatLocal = "0.0_ "
    Range("G1").Select

End Sub

Sub 安値高値()
    Cells(10000, 1).End(xlUp).Select
    endr = ActiveCell.Row
    Range("A2").Select

    Cells(1, 11).Formula = "=MIN(E4:E" & endr & ")"　'E列は安値
    Cells(1, 12).Formula = "=MAX(D4:D" & endr & ")"　'D列は高値
    Cells(1, 11) = "最安値" & Cells(1, 11)
    Cells(1, 12) = "最高値" & Cells(1, 12)
End Sub

'取得1
    ymden = ymd
    ymdst = ymden - 70
    endr = 3
    Call 取得準備
'取得2
    ymden = ymdst - 1
    ymdst = ymden - 70
    
    Cells(10000, 1).End(xlUp).Select
    endr = ActiveCell.Row + 1
    Call 取得準備

上記サンプルは70*2で暦日数140日であり、株データは約100日分の取得です。

---------------------------------------------------------------------
下記のようにFor文を追加し、「取得2」を回せば1回の実行で約50日分のデータを追加できます

For cnt = 1 To 3
'取得2
    ymden = ymdst - 1
    ymdst = ymden - 70
    
    Cells(10000, 1).End(xlUp).Select
    endr = ActiveCell.Row + 1
    Call 取得準備
Next