Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

フォント名（Name,ThemeFont,StandardFont）

2015/07/27 2015/08/26

フォント名を取得・設定する（Name プロパティ）

Name プロパティは、オブジェクトのフォント名を文字列型（String）で、取得・設定します。

【書式】

＜取得＞
object.Name

＜設定＞
object.Name = string

引数・戻り値

object ・・・対象となる Font オブジェクトを指定します。
string ・・・フォント名を指定します。

テーマのフォント（ThemeFont プロパティ）

ThemeFont プロパティは、テーマで使用しているフォントを利用するかどうかを指定します。設定には、テーマのフォントを表す定数（XlThemeFont 列挙）を使用します。

【書式】

＜取得＞
object.ThemeFont

＜設定＞
object.ThemeFont = const

引数・戻り値

object ・・・対象となる Font オブジェクトを指定します。

const ・・・ テーマのフォントを表す定数やその値を指定します。

定数	値	内容
xlThemeFontMajor	2	テーマのフォント（見出し）
xlThemeFontMinor	1	テーマのフォント（本文）
xlThemeFontNone	0	テーマのフォントを使用しません

ThemeFont プロパティは、Excel 2007 以降でしか使用できません。

標準フォント名の取得・設定（StandardFont プロパティ）

StandardFont プロパティで、標準フォントを文字列型（String）で、設定・取得します。フォントを指定していない場合、このStandardFont プロパティのフォントが使用されます。

【書式】

＜取得＞
object.StandardFont

＜設定＞
object.StandardFont = string

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
string ・・・フォント名を指定します（文字列型）。

StandardFont プロパティの対象オブジェクトは、Application オブジェクトです。

StandardFont プロパティで、標準フォントを変更した場合、Excel を再起動するまで変更は反映されません。

フォント名・標準フォント名の取得・設定使用例

サンプルVBAソース

　
Sub Sample_Font02()

    'セル「C2」入力・文字列設定（メイリオ）
    Range("C2").Value = "あいうえ"
    Range("C2").Font.Name = "メイリオ"
    
    'セル「C5」入力・文字列設定（テーマのフォント「見出し」）
    Range("C5").Value = "ABCDE"
    Range("C5").Font.ThemeFont = xlThemeFontMajor
    
    
    'セル「C2」のフォント名
    Range("A2").Value = Range("C2").Font.Name
    
    'セル「C5」のフォント名
    Range("A5").Value = Range("C5").Font.Name
    
    '標準フォント名
    Range("A8").Value = Application.StandardFont


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

　

Sub Sample_Font02()

'セル「C2」入力・文字列設定（メイリオ）

Range("C2").Value = "あいうえ"

Range("C2").Font.Name = "メイリオ"

'セル「C5」入力・文字列設定（テーマのフォント「見出し」）

Range("C5").Value = "ABCDE"

Range("C5").Font.ThemeFont = xlThemeFontMajor

'セル「C2」のフォント名

Range("A2").Value = Range("C2").Font.Name

'セル「C5」のフォント名

Range("A5").Value = Range("C5").Font.Name

'標準フォント名

Range("A8").Value = Application.StandardFont

End Sub

　

実行結果

- VBA基本 Application オブジェクト, Font オブジェクト, Name プロパティ, StandardFont プロパティ, ThemeFont プロパティ, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: セルのデータを区切り文字で複数のセルに分割する（TextToColumns メソッド）

TextToColumns メソッド TextToColumns メソッドを使用 …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: 配列の添字の最小値を「1」に設定する

Option Base ステートメントを使用する【書式】 Option Bas …

: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

CentimetersToPoints メソッドセンチメートル単位の値をポイン …

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

: VBA で正規表現を使う（RegExp オブジェクトのメソッド）

RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …

: 出力位置、書き込み位置を設定（Tab 関数）

出力位置、書き込み位置を設定 Tab 関数は、Print メソッド、または P …

: Split 関数（文字列型の一次配列を作成）

Split 関数の使い方【書式】 myArray = Split ( expr …

: 指定した値を8進数で表記した文字列に変換する（Oct 関数）

Oct 関数の使い方【書式】 result = Oct ( expressi …

: 文字列：アルファベットを小文字または大文字に変換（LCase 関数,UCase 関数）

LCase 関数・UCase 関数の使い方【書式】＜アルファベットの大文字 …

PREV: フォント太字・斜体（Bold, Italic, FontStyle プロパティ）
NEXT: フォントサイズ（Size プロパティ・StandardFontSize プロパティ）