MS Office オートメーション

Size: px

Start display at page:

Download "MS Office オートメーション"

あつとしてらわ
4 years ago
Views:

1 MS Office オートメーション Excel マクロのキックに依る印刷 Access では CSV や Excel 形式でのファイル保存が可能で有る此れ利用して Excel のマクロを装備したシートに読み込んでマクロを実行し印刷する方法を紹介する一般的には, 単成るテキストファイルで有る CSV の方が Excel 形式ファイルより汎用性が有るがマクロで自動実行した時にはが行頭に付いて居るセルを文字列型と仕て認識して仕舞うと謂う問題が発生する為此処では Excel 形式で保存した物を読み込ませて居る此のファイルを読み込ませて印刷すると謂う手順では一々コードを記述する必要は無い下記の手順で Excel に記録させて後から適当に書き直す事が出来るので有る 1.[ ツール ] メニューの [ マクロ ]-[ 新しいマクロの記録 ] を開く 2. 適当に設定してを押す 3. マクロを選択し,[ 編集 ] ボタンをクリックする 4. 適切な操作をする 5. 操作を終了したらマクロ記録を終了する 6.[ ツール ] メニューの [ マクロ ]-[ マクロ ] を開く 7. マクロを選択し [ 編集 ] ボタンをクリックする 8. マクロ内のマクロ名ディレクトリ名とファイル名等を適切に編集する因みに Alt + F11 キーで Excel の VBA 環境を起動する事が出来る下記のサンプルは Nwind.mdb に含まれる Orders テーブルを其の儘 XLS 形式で吐き出した Orders.xls を表形式で印刷する物で有る此れには可成り冗長なコードが含まれて居るが此れが Excel が出す粗其の儘のコードで有る実際には適切に編集したりコードを追加する事が望ましい猶クエリーの範囲選択等は飽く迄も Access 側で操作す可き事で有り此処では XLS の内容を其の儘印刷すると謂う形に仕て置く可きで有る其の方がメンテナンスもデバッグも容易で有る Sub PrintSheet() ChDir "F: DevStudio VB test VBACC" Workbooks.Open FileName:= _ "F: DevStudio VB test VBACC Orders.xls" Range("A:A,B:B,D:D,H:H").Select Range("H1").Activate Selection.Copy Sheets.Add ActiveSheet.Paste Selection.Columns.AutoFit Application.CutCopyMode = False Selection.Sort Key1:=Range("A2"), _ Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, SortMethod _ :=xlpinyin -1-

2 Application.ScreenUpdating = False With ActiveSheet.PageSetup.PrintTitleRows = "".PrintTitleColumns = "" ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup.LeftHeader = "".CenterHeader = "".RightHeader = "".LeftFooter = "".CenterFooter = "".RightFooter = "".LeftMargin = Application.InchesToPoints( ).RightMargin = Application.InchesToPoints( ).TopMargin = Application.InchesToPoints( ).BottomMargin = Application.InchesToPoints( ).HeaderMargin = Application.InchesToPoints( ).FooterMargin = Application.InchesToPoints( ).PrintHeadings = False.PrintGridlines = True.PrintComments = xlprintnocomments.centerhorizontally = False.CenterVertically = False.Orientation = xlportrait.draft = False.PaperSize = xlpapera4.firstpagenumber = xlautomatic.order = xldownthenover.blackandwhite = True.Zoom = 100 ActiveWindow.SelectedSheets.PrintPreview ' ActiveWindow.SelectedSheets.PrintOut _ ' Copies:=1, Collate:=True ActiveWorkbook.Close (False) 此のマクロは autoprnt.xls と謂うファイルに保存した Visual Basic から此のマクロを実行するにはファイルを Microsoft Form に仕てインスタンシングをする GetObject(CreateObject ではない ) を使用して Excel のオブジェクトを作成する猶 Excel97 からは作成されるオブジェクトが異なって居る此れ以前のバージョンの Excel ではオブジェクトの型に Sheet を指定した時には Worksheet オブジェクトが Chart を指定した時には Chart オブジェクトで有ったが孰れも Excel 97 では Workbook に変更されたマクロを実行するには下記の様に (xls 名 )!( マクロ名 ) を run メソッドの引数と仕て実行すれば良い -2-

3 obj.application.run "autoprnt.xls!printsheet" 猶マクロを実行するには Application オブジェクトが可視状態でなければ成らない為 Application.Visible プロパティを True に仕て置く必要が有る Private Sub cmdprsheet_click() Dim obj As Object Set obj = GetObject _ ("F: devstudio vb test vbacc autoprnt.xls") obj.application.visible = True obj.application.run "autoprnt.xls!printsheet" obj.application.visible = False 同様に仕てチャートをプレビューするマクロ及び其れをキックする Visual Basic 側のコードを示す此処では Nwind.mdb 内に有るクエリー Category Sales for 1995 を Cat95.Xls と謂うファイルにコンバートして使用して居る Sub PrintChart() ' Add Dim Cels As Object ChDir "F: DevStudio VB test VBACC" Workbooks.Open FileName:= _ "F: DevStudio VB test VBACC Cat95.xls" Set Cels = ActiveCell.CurrentRegion Charts.Add ActiveChart.ChartType = xlcolumnclustered ' ActiveChart.SetSourceData Source:=Sheets _ ' ("CatSales").Range("A1:B9"), PlotBy _ ' :=xlcolumns ' Add ActiveChart.SetSourceData Source:=Cels, PlotBy _ :=xlcolumns ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart.HasTitle = True.ChartTitle.Characters.Text = "CategorySales".Axes(xlCategory, xlprimary).hastitle = False.Axes(xlValue, xlprimary).hastitle = False With ActiveChart.PageSetup.LeftHeader = "".CenterHeader = "".RightHeader = "".LeftFooter = "".CenterFooter = "".RightFooter = "" -3-

4 .LeftMargin = Application.InchesToPoints( ).RightMargin = Application.InchesToPoints( ).TopMargin = Application.InchesToPoints( ).BottomMargin = Application.InchesToPoints( ).HeaderMargin = Application.InchesToPoints( ).FooterMargin = Application.InchesToPoints( ).ChartSize = xlfullpage.centerhorizontally = False.CenterVertically = False.Orientation = xllandscape.draft = False.PaperSize = xlpapera4.firstpagenumber = xlautomatic.blackandwhite = True.Zoom = 100 ' ActiveWindow.SelectedSheets.PrintOut _ ' Copies:=1, Collate:=True ActiveWindow.SelectedSheets.PrintPreview ActiveWorkbook.Close (False) Private Sub cmdprchart_click() Dim obj As Object Set obj = GetObject _ ("F: devstudio vb test vbacc autoprnt.xls") obj.application.visible = True obj.application.run "autoprnt.xls!printchart" obj.application.visible = False 此の様に仕て Visual Basic からボタンひとつで Excel の表やチャート等の豊富な機能を使用した印刷が出来る様に成る -4-

5 マクロを呼び出すアプリケーション Excel 表形式での印刷プレビュー Excel チャート形式での印刷プレビュー -5-

Word の差し込み印刷 Word への差し込み印刷を紹介して置く此れは全く難しい事は無い [ ツール ]-[ 差し込み印刷ヘルパー ] メニューを選べば誰でも使う事が出来る但し此処では Access 等のクエリーでなくても XLS や CSV も指定する事が出来る従って Excel の時と同じ様な手順で実行する事が出来る筈で有る下図は

6 Word の差し込み印刷 Word への差し込み印刷を紹介して置く此れは全く難しい事は無い [ ツール ]-[ 差し込み印刷ヘルパー ] メニューを選べば誰でも使う事が出来る但し此処では Access 等のクエリーでなくても XLS や CSV も指定する事が出来る従って Excel の時と同じ様な手順で実行する事が出来る筈で有る下図はセミナー受講票の印刷プログラムの例で有る Web から申し込まれたセミナー情報は SQL Server に入って居る此れとローカルに有る Access のセミナー会場等の MDB 等と組み合わせたクエリーを実行し Word で書いた文書の適当な部分に其等のデータを差し込んで居るので有る猶左側にドロップダウンして居るのは差し込み可能なフィールド一覧で有る Word での差し込み印刷の例 -6-

グラフィックス

グラフィックス PictureBox の Image プロパティに関する良く有る勘違い PictureBox に画像を表示する方法と仕て PictureBox の Image プロパティを使う方法と Graphics の DrawImage メソッドを使う方法が有るが此の 2 つの方法を混同し正しく理解して居ない事が多い様で有る例えば下記に列挙する様な状況が此れに該当する 1.PictureBox