[[20231102153556]]　『シート名の文字を大きくしたい』（てけてけ）　ページの最後に飛ぶ

『シート名の文字を大きくしたい』（てけてけ）

エクセルのシートタブのシート名の文字を大きくしたいのですが、エクセルにそのような機能が無く、
Windows設定の『メインディスプレイのアプリとテキストのサイズを変更する』では全てが大きくなるので使えません。
ネットで調べたところ、『個人設定 → ウインドウの色 → デザインの詳細設定』でできるようですが、私のWindows10ではそのような設定はありません。Windows7ではあったような気がするのですが・・・。

モニターを　24インチ・FULLHD　⇒　32インチ・WQHD　の解像度に買い変えたのですが、老眼&近眼には厳しいです。

変更方法、ご教授いただければありがたいです。
よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 次善の策というか。

 設定-簡単操作の拡大鏡を使うというのはどうだろうか？
（ねむねむ） 2023/11/02(木) 16:58:13

ねむねむさん、返信ありがとうございます。

拡大鏡は使って見ましたが、正直使いづらいので使っていません。

（てけてけ） 2023/11/02(木) 17:31:33

 新しいOSでは機能が無くなったみたいです。
https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel2013%E3%81%AE%E3%82%B7%E3%83%BC%E3%83%88/4e7fec1a-23d3-4646-bfd6-94b5273db595

 マクロでシート群の左端に目次のシートを作る案です。
 グラフシートにはリンク出来ないのでご容赦を。
 "Sheet INDEX"というシート名を既に使っている場合は、変名しないと削除してしまいます。

 Sub test()
    Dim v, i As Long
    Const sn As String = "Sheet INDEX"  '目次のシート名。任意に変更可。

    On Error Resume Next
    Application.DisplayAlerts = False
    Worksheets(sn).Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    ReDim v(1 To Sheets.Count)
    For i = 1 To UBound(v)
        v(i) = Sheets(i).Name
    Next
    With Worksheets.Add(before:=Sheets(1))
        .Name = sn
        For i = 1 To UBound(v)
            Select Case TypeName(Sheets(v(i)))
                Case "Worksheet"
                    .Hyperlinks.Add Anchor:=.Cells(i, "A"), Address:="", _
                                    SubAddress:=v(i) & "!A1", TextToDisplay:=v(i)
                Case Else
                    .Cells(i, "A") = v(i)
            End Select

        Next
        .Columns(1).SpecialCells(xlCellTypeConstants).Font.Size = 20    'フォントの大きさ。任意に変更可。
    End With
 End Sub
（外野フライ） 2023/11/02(木) 19:49:48

外野フライさん、返信ありがとうございます。

変更する機能は無くなってしまったんですね。
残念です。

目次シートを作成するマクロありがとうございます。
使ってみます。

（てけてけ） 2023/11/03(金) 09:32:39

コメント返信：

[ 一覧(最新更新順) ]

[[20231102153556]] 『シート名の文字を大きくしたい』（てけてけ） ページの最後に飛ぶ

[[20231102153556]]　『シート名の文字を大きくしたい』（てけてけ）　ページの最後に飛ぶ