スキルアップ・問題解決なら、モーグにおまかせ！

フォントサイズを設定します。フォントのサイズは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