tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
VB2010からExcelのWorksheetの行の高さを設定(VB.NET) ( No.14 )  [親スレッドへ]
日時: 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")
   '==================== 行の高さを設定・行の高さを自動調整 =====================
   '確認のために、1秒間表示しておく
   System.Threading.Thread.Sleep(1000)

   Dim xlRange As Excel.Range
   xlRange = xlSheet.Range("3:10")
   '行の高さを25 ポイント(25/72 インチ)に設定
   xlRange.RowHeight = 25
   '確認のために、1秒間表示しておく
   System.Threading.Thread.Sleep(1000)

   '行の高さを文字の高さに合せて自動調整
   Dim xlRows As Excel.Range
   xlRows = xlRange.Rows
   xlRows.AutoFit()
   MRComObject(xlRows)
   MRComObject(xlRange)
   '確認のために、2秒間表示しておく
   System.Threading.Thread.Sleep(2000)

   '=============================================================================
   'Excelファイルを上書き保存(True 又省略すれば)して終了処理を実行
   Call ExcelClose(IO.Path.GetFullPath(".\Test.xlsx"), False)  'False の場合保存しないで終了
   'Excel.EXE がタスクマネージャに残っていないか調査(実使用時は必要なし)
   Call ProcessCheck()
End Sub



 [スレッド一覧へ] [親スレッドへ]