Memo/2004-07-10

Excel 関連情報 †

サンプルコード †

複数の Excel ファイルに対して拡大縮小印刷の設定を行う †

' ZoomPage.vbs
' Usage : CScript //NoLogo ZoomPage.vbs

Option Explicit
Dim g_strDir      ' このマクロがある場所
Dim g_strDataDir  ' 拡大縮小対象のデータフォルダ

Main

' メイン プロシージャ
Sub Main()
    g_strDir = "E:\home\edu\hatena\zoom_page\"     ' このマクロがある場所
    g_strDataDir = g_strDir & ".\data"             ' 拡大縮小対象のデータフォルダ
    ' 複数ファイルの拡大縮小印刷の設定を変更する
    ZoomFiles 50 ' 拡大/縮小率を指定（例は 50%）
End Sub

' 複数ファイルの拡大縮小印刷の設定を変更する
Sub ZoomFiles( ByVal nZoom )
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    Dim folder
    Set folder = fs.GetFolder(g_strDataDir)
    Dim file
    ' ファイルの数だけ処理を行う
    For Each file In folder.Files
        ZoomSheets file, nZoom
    Next
End Sub

' 指定ファイルの拡大縮小印刷の設定を行う
Function ZoomSheets(ByVal file, ByVal nZoom )
    Dim app
    Set app = CreateObject("Excel.Application")
    app.Workbooks.Open file
    Dim book
    Set book = app.ActiveWorkbook
    Dim sheet
    For Each sheet In book.Worksheets
        sheet.PageSetup.Zoom = nZoom ' 拡大縮小印刷の設定を変更
    Next
    book.Save ' 上書き保存
    app.Workbooks.Close
    Set app = Nothing
End Function

• はてな
  • http://www.hatena.ne.jp/1089440554