Memo/2004-07-10 のバックアップの現在との差分(No.1)

追加された行はこの色です。
削除された行はこの色です。
#contents

*Excel 関連情報
**サンプルコード
***複数の Excel ファイルに対して拡大縮小印刷の設定を行う
*Excel 関連情報 [#ycde09d7]
**サンプルコード [#v245a424]
***複数の Excel ファイルに対して拡大縮小印刷の設定を行う [#zccc1324]
 ' 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

#comment