- 日時： 2012/05/29 11:12
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：Excel VBA,Excel2010,行の高さを設定,行の高さを自動調整 *
***********************************************************************************
'===================================================================================================
'投 稿 日：2012.05.06
'投 稿 者：VBレスキュー(花ちゃん)
'タイトル：VB2010 から Excel の Worksheet の行の高さを設定・行の高さを自動調整
'========1=========2=========3=========4=========5=========6=========7=========8=========9=========0
Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
'テスト用の適当なファイルを用意しておいて下さい。
'既存のファイルをオープンして、Excel を起動
Call ExcelOpen(System.IO.Path.GetFullPath("..\..\..\data\DBTest.xls"), "Sheet1")
'==================== 行の高さを設定・行の高さを自動調整 =====================
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
Dim xlRange As Excel.Range
xlRange = xlSheet.Range("3:10")
'行の高さを25 ポイント(25/72 インチ)に設定
xlRange.RowHeight = 25
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
'行の高さを文字の高さに合せて自動調整
Dim xlRows As Excel.Range
xlRows = xlRange.Rows
xlRows.AutoFit()
MRComObject(xlRows)
MRComObject(xlRange)
'確認のために、２秒間表示しておく
System.Threading.Thread.Sleep(2000)
'=============================================================================
'Excelファイルを上書き保存(True 又省略すれば)して終了処理を実行
Call ExcelClose(IO.Path.GetFullPath(".\Test.xlsx"), False) 'False の場合保存しないで終了
'Excel.EXE がタスクマネージャに残っていないか調査(実使用時は必要なし)
Call ProcessCheck()
End Sub
|
VB2010からExcelのWorksheetの行の高さを設定(VB.NET)