tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
VB2010からExcelのセルのフォントを設定(VB.NET) ( No.8 )  [親スレッドへ]
日時: 2012/05/29 09:25
名前: VBレスキュー(花ちゃん)

***********************************************************************************
* カテゴリー:[エクセル][][]                                                      *
* キーワード:Excel VBA,Excel 2010,フォントスタイル,エクセル,セルのフォントを設定 *
***********************************************************************************
'===================================================================================================
'投 稿 日:2012.05.05
'投 稿 者:VBレスキュー(花ちゃん)
'タイトル:VB2010 から Excel のセルのフォントの設定
'========1=========2=========3=========4=========5=========6=========7=========8=========9=========0

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
   Call ExcelOpen("", "")     '新規ファイルをオープンして、Excel を起動
   '========================== セルのフォントの設定 =============================

   '-------------------- マクロの記録を取った場合 ----------------------------
      'Range("C2").Select()
      'ActiveCell.FormulaR1C1 = "あいうえお"
      'With ActiveCell.Characters(Start:=3, Length:=1).Font
      '   .Name = "MS 明朝"
      '   .FontStyle = "太字"
      '   .Size = 15
      '   .Strikethrough = False  
      '   .Superscript = False  
      '   .Subscript = False
      '   .OutlineFont = False  
      '   .Shadow = False    、
      '   .Underline = xlUnderlineStyleNone
      '   .ThemeColor = xlThemeColorLight1
      '   .TintAndShade = 0
      '   .ThemeFont = xlThemeFontNone
      'End With
   '--------------------------------------------------------------------------

   Dim xlRange As Excel.Range
   xlRange = xlSheet.Range("C2")
   xlRange.Value = "あいうえお"
   '確認のために、1秒間表示しておく
   System.Threading.Thread.Sleep(1000)

   Dim xlCharacters As Excel.Characters
   xlCharacters = xlRange.Characters(Start:=2, Length:=3)
   Dim xlFont As Excel.Font
   xlFont = xlCharacters.Font
   With xlFont
      .Name = "MS 明朝"
      'フォント スタイルを設定(文字列型 (String) の値を使用)
      .FontStyle = "太字 斜体"
      .Size = 15
      .Strikethrough = True      '取り消し線
      .Superscript = False       'True の場合、対象となるフォントが上付き文字になります
      .Subscript = False         'True の場合、対象となるフォントは下付き文字になります
      .OutlineFont = False       'True の場合、フォントをアウトライン フォントにします
      .Shadow = True             'True の場合、フォントを影付きフォントに、
      'フォントに付いている下線の種類を設定()
      .Underline = Excel.XlUnderlineStyle.xlUnderlineStyleSingle
      '指定されたオブジェクトに適用する配色のテーマ(カラーを設定)
      .ThemeColor = Excel.XlThemeColor.xlThemeColorAccent2
      '色を明るく、または暗くする
      .TintAndShade = 0
      '指定されたオブジェクトに適用するテーマのフォントを設定()
      .ThemeFont = Excel.XlThemeFont.xlThemeFontNone
   End With
   MRComObject(xlFont)
   MRComObject(xlCharacters)
   MRComObject(xlRange)
   '確認のために、1秒間表示しておく
   System.Threading.Thread.Sleep(1000)

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



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