Memo/2004-07-10
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*Excel 関連情報 [#ycde09d7]
**サンプルコード [#v245a424]
***複数の 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
終了行:
#contents
*Excel 関連情報 [#ycde09d7]
**サンプルコード [#v245a424]
***複数の 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
ページ名: