- 日時： 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 = "ＭＳ 明朝"
' .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 = "あいうえお"
'確認のために、１秒間表示しておく
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 = "ＭＳ 明朝"
'フォント スタイルを設定(文字列型 (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)
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
'=============================================================================
'Excelファイルを上書き保存(True 又省略すれば)して終了処理を実行
Call ExcelClose(IO.Path.GetFullPath(".\Test.xlsx"), False) 'False の場合保存しないで終了
'Excel.EXE がタスクマネージャに残っていないか調査(実使用時は必要なし)
Call ProcessCheck()
End Sub
|
VB2010からExcelのセルのフォントを設定(VB.NET)