即効テクニック

文字列操作関連のテクニック

フォントサイズを設定する

(Excel 2000)
フォントサイズを設定します。フォントのサイズは1から409の間で設定してください。
使用する単位はポイントです。

  構文  Object.Size     設定/取得


  設定項目              内容
  Object                Fontオブジェクト [省略不可]

次のサンプルで、最小から最大までのすべてのフォントサイズを確認できます。

●サンプル1●

 Sub SizeSamp1()
     Dim i As Integer

     For i = 1 To 409        '---最小から最大までのフォントサイズを確認
         With Range("A1")
             .Font.Size = i
             .Value = i & "ポイント"    '---単位はポイントです
         End With
     Next i
     For i = 409 To 1 Step -1   '---再度、最大から最小までのフォントサイズを
                   '---確認
         With Range("A1")
             .Font.Size = i
             .Value = i & "ポイント"    '---単位はポイントです
         End With
     Next i

 End Sub