エクセルの学校：全文検索：Hyper Estraier：フォーマット　自動　印刷

Results of 1 - 1 of about 103 for フォーマット　自動　印刷 (0.009 sec.)

フォーマット (1423), 自動 (14513), 印刷 (5707)

[[20220610114555]]: #score: 8141; @digest: 1128c609946794202d8a57a5ebd839c8; @id: 91509; @mdate: 2022-06-16T12:19:37Z; @size: 25066; @type: text/plain; #keywords: yaxis (101754), ポム (82271), maxy (77638), miny (72494), 値配 (71625), 準値 (58540), 準線 (58207), 色配 (42173), minimumscale (36489), maximumscale (33363), 線種 (27182), 縦軸 (16135), 基準 (15333), 限値 (13746), ズレ (12963), タテ (11038), 下限 (11008), （ポ (9023), ゴシ (8342), chartobjects (8100), 列as (7998), ラフ (7236), シッ (6846), 最小 (6710), 軸の (6395), グラ (6365), 2022 (6279), 列( (6169), ム） (6118), 小値 (5712), 配列 (5578), 拡大 (5459); 『グラフに、上限値2本と下限値2本追加したい』（ポム）
グラフに、上限下限を表す線を追加したいのですがデータ部分は、データテーブルを表示しているのでグラフに入れ込もうとすると上限下限値まで表示されてしまいます。上限下限値は、右に凡例表示だけで良いのですが罫線で書くとズレてしまい編集も大変です。グラフは300近くあるのですが何か良い方法あれば教えて下さい。＜使用 Excel:Excel2013、使用 OS:Windows10 ＞ ---- データテーブルを使うと、すべての系列を表示してしまうので、単なる系列追加ではNGということなんでしょうか? 図形をグラフに追加するということなんでしょうか。一応、プロトタイプは書いてみましたが、まだ完成とまではいきません。そのまえに前提の確認です。 (Q1)グラフの種類はどのようなものですか? (Q2)組み合わせグラフなどはありますか? (Q3)2軸を使ったグラフはありますか? (Q4)上限値、下限値などの指定はどのようにする積りでしょうか? シート上に指定を書き込むとしたら、どのようなデータになりますか? 例を挙げてください。（γ） 2022/06/10(金) 18:11 ---- データテーブルを使うと、すべての系列を表示してしまうので、単なる系列追加ではNGということなんでしょうか? → はい、そうなんです。 (Q1)グラフの種類はどのようなものですか? →折れ線グラフが、4本から成っているグラフです。 (Q2)組み合わせグラフなどはありますか? →ありません。 (Q3)2軸を使ったグラフはありますか? →使ってないですね。 (Q4)上限値、下限値などの指定はどのようにする積りでしょうか? →グラフを、選択して図形で罫線を引こうかなと作業始めたのですが意外と大変でした… マイテンプレートの適用が何故か出来なくなっていて割当てが出来ないので1つ1つ変更してます。現在のグラフは、+3〜-3なのでそれを+10〜-10に変更しそこにグラフ内に、図形で線を計4本引いています。シート上に指定を書き込むとしたら、どのようなデータになりますか? +8,-8と+10,-10 データ数は、1つのグラフに対して1ヶ月分の日数でそれが月60〜80件くらい宜しくお願いします。工事が、終わるまでずっーと続く作業で過去分を変更しています。宜しくお願いします。（ポム） 2022/06/10(金) 22:17 ---- 再度修正しました。(6/12) ・現在アクティブなブックの、アクティブシートのすべてのグラフについて、上限下限の直線を書き込みます。・とりあえず、基準値は 10, 8, -8, -10 にしてあります。・標準モジュールにコピーペイストして "基準値の書き込み"プロシージャを実行してください。不測の事態への責任は負えませんので、バックアップを取っておくことを推奨します。【参考コード】 Sub 基準値の書き込み() Dim 基準値配列 As Variant Dim 基準値 As Variant Dim ch As Chart Dim pa As PlotArea Dim yAxis As Axis Dim minY#, maxY# Dim l#, t#, w#, h# Dim posY#(1 To 4) Dim k As Long, j As Long 基準値配列 = Array(10, 8, -8, -10) '■テスト用 For k = 1 To ActiveSheet.ChartObjects.Count Set ch = ActiveSheet.ChartObjects(k).Chart With ch Call deleteShape(ch) '■■既に書き込まれている図形を削除 Set yAxis = .Axes(xlValue) minY = yAxis.MinimumScale '縦軸の最小値 maxY = yAxis.MaximumScale '縦軸の最大値 '■基準値が、現在の縦軸の最大最小から外れる場合は処理終了 For Each 基準値 In 基準値配列 If 基準値 > maxY Or 基準値 < minY Then MsgBox ch.Name & " について、" _ & vbLf & "基準値の指定が、現在の軸の上下限(" & "(" & minY & "," & maxY & ") を超えています。" _ & vbLf & "処理を終了します" Exit Sub End If Next 'プロットエリアの位置情報 With .PlotArea l = .InsideLeft t = .InsideTop w = .InsideWidth h = .InsideHeight End With '基準値に対応する位置に線を引く For j = 1 To UBound(基準値配列) + 1 posY(j) = t + (maxY - 基準値配列(j - 1)) / (maxY - minY) * h With .Shapes.AddLine(l, posY(j), l + w, posY(j)).Line .Weight = 2# '■線の太さ .DashStyle = msoLineSysDash '■線の種類 .ForeColor.RGB = vbRed '■色 .Visible = msoTrue End With Next End With Next End Sub Function deleteShape(ch As Chart) Dim sp As Shape For Each sp In ch.Shapes sp.Delete Next End Function ちなみに、当初使っていた https://excel-ubara.com/excelvba5/EXCELVBA241.html は、データテーブルを使っていたり、縦棒グラフに対しては、位置がおかしくなるので注意が必要です。・直接、図形描画したので、コードもスッキリしました。やはり借り物はいけない。・ちなみに、グラフを移動しても、書き込んだ直線は追随して移動しますが、グラフを拡大縮小すると崩れます。再実行してください。（γ） 2022/06/11(土) 00:02 ---- ありがとうございます。月曜日まで、確認が出来ないのが申し訳ないのですが出勤しだいすぐにやってみます。宜しくお願いします。（ポム） 2022/06/11(土) 06:02 ---- 私は以下のようにして水平線を引いています。参考にしてください。棒グラフと折れ線グラフに水平線を引く方法 STEP1）元となるデータに基準値を設定する基準線を引くには、その他のデータと同じように、基準値も設定してあげる必要があります。基準線を水平線にしたい場合、目標値は全て同じ値にしてください。水平線を引きたい分だけ、目標値を設定する。 |[A] |[B] |[C] |[D] |[E] |[F] |[G] [1]| |1月|2月|3月|4月|5月| [2]|売上 |1000| 810|1200| 700| 800| [3]|目標値| 800| 800| 800| 800| 800| ← 基準線とするデータ基準線とするデータはユーザー定義「;;;」で非表示にするとよいでしょう。 STEP2）基準値のグラフの種類を「折れ線」にする折れ線グラフは「その他の折れ線グラフ」をクリックして水平線が入ったグラフを選択します。棒グラフは「組み合わせ」を選択し、「集合縦棒-折れ線」を選択します。これで基準線が引けました。 STEP3）基準線が短いのを長くする方法基準線が引けたのはいいのですが左右に余白が出ています。基準線をクリックして選択状態にし、右クリックで「近似曲線の追加」を選択します。「近似曲線の書式設定」が表示されるので、「予測」の項目の「前方補外」と「後方補外」にそれぞれ「0.5」と入力します。このままでは伸びた分の線だけ点線になってしまっているので、線種を変えます。「近似曲線の書式設定」から「塗りつぶしと線」を選択し、「実線/点線」で一番上の実線を選択します。元の線と伸びた分の線の幅が微妙に違うので、「幅」を「2.25pt」にして元の線の幅に合わせます。 STEP4）凡例「線形」を削除「線形(◯◯)」と凡例が追加されるので削除します。凡例全体をを選択して「線形(◯◯)」をクリックし「Delete」キーで削除します。 STEP5）これで完成です。（nm） 2022/06/11(土) 23:46 ---- 詳細を確認していませんが、データテーブルにその基準線のデータは表示されてしまわないですか? （γ） 2022/06/11(土) 23:50 ---- だから参考にしてくださいと言っているんですけどね。（nm） 2022/06/12(日) 00:14 ---- γ 様ありがとうございます。動いたのですが、-3〜+3のところについては処理がされず -10〜+10に、目盛を変更していたグラフにだけ基準線が引かれました。また、-10と+10、-8と+8で罫線の色と線種を変えたいです。 -は、点線。+は、実線。 -10と+10の色は、同じ。-8と+8の色は、同じ。簡単に、設定変更できますか? （ポム） 2022/06/13(月) 10:20 ---- 確認ですが、-3から3のところとはどういうことでしょうか。何かメッセージが出ませんでしたか? 色は何色ですか? 線の太さは今と同じですか? （γ） 2022/06/13(月) 11:04 ---- 色は、オレンジ、アクセント6→+10と-10 -8と+8が、アクア、アクセント6 です。 -3〜+3は、もともとのグラフの目盛です。それを、-10〜+10に、変更して基準線を引いています。メッセージは、基準の軸の上下限（-3,3）を超えています。と、出ます。（ポム） 2022/06/13(月) 11:20 ---- はい、線の太さは今と同じです。また、-3〜+3の目盛になっているところをシート内全て -10〜+10に、変更するにはどうしたら良いでしょうか? マクロの記録で、グラフの番号を一回一回変更しながらは手間だなあーと。全てのグラフに、実行するにはどうすれば良いのか教えて下さい。（ポム） 2022/06/13(月) 11:34 ---- 修正点 (1)軸の最大最小・縦軸の最小値が-10より大きかったら、-10まで引き下げる。・縦軸の最大値が 10より小さかったら、 10まで引き上げる。 (2)色（少し違うかもしれないが、その場合はご自分で修正してください。） (3)線種メインのプロシージャーだけ示します。 Sub 基準値の書き込み() Dim 基準値配列 As Variant Dim 基準値 As Variant Dim 色配列 As Variant Dim 線種配列 As Variant Dim ch As Chart Dim pa As PlotArea Dim yAxis As Axis Dim minY#, maxY# Dim l#, t#, w#, h# Dim posY#(1 To 4) Dim k As Long, j As Long 基準値配列 = Array(10, 8, -8, -10) '■ 色配列 = Array(RGB(247, 150, 70), RGB(75, 172, 198), RGB(75, 172, 198), RGB(247, 150, 70)) '■変更線種配列 = Array(msoLineSolid, msoLineSolid, msoLineSysDash, msoLineSysDash) '■変更 For k = 1 To ActiveSheet.ChartObjects.Count Set ch = ActiveSheet.ChartObjects(k).Chart With ch Call deleteShape(ch) '■■既に書き込まれている図形を削除 Set yAxis = .Axes(xlValue) minY = yAxis.MinimumScale '縦軸の最小値 maxY = yAxis.MaximumScale '縦軸の最大値 '■■縦軸の最大最小を修正■■ If minY > -10 Then yAxis.MinimumScale = -10 minY = -10 End If If maxY < 10 Then yAxis.MaximumScale = 10 maxY = 10 End If 'プロットエリアの位置情報 With .PlotArea l = .InsideLeft t = .InsideTop w = .InsideWidth h = .InsideHeight End With '基準値に対応する位置に線を引く For j = 1 To UBound(基準値配列) + 1 posY(j) = t + (maxY - 基準値配列(j - 1)) / (maxY - minY) * h With .Shapes.AddLine(l, posY(j), l + w, posY(j)).Line .Weight = 2# '■線の太さ .DashStyle = 線種配列(j - 1) '■線の種類 ■変更 .ForeColor.RGB = 色配列(j - 1) '■色 ■変更 .Visible = msoTrue End With Next End With Next End Sub なお、コメントを下さっている方に、きちんと返事をしてください。（γ） 2022/06/13(月) 12:26 ---- nm 様ありがとうございます。そのやり方は、やってはみたのですがデータテーブルに表示されてしまうため担当者からも却下されました… 追伸いつもは、このやり方でした。（ポム） 2022/06/13(月) 12:35 ---- γ 様ありがとうございます。線種と目盛の変更一括で、出来ました。ただ、なぜかマイナスラインが、ズレてしまいます。 -8が、-10あたりに。-10は、その下になってしまいました。（ポム） 2022/06/13(月) 13:17 ---- うーん、ちょっと再現できないですね。軸の最大値を変更したときに、いったん修正した最小値が再度動いてしまうのですかね。再現できるデータを示してもらえますか。もしくは、手で最大値、最小値を変更してから、実行して切り抜けられませんか? （γ） 2022/06/13(月) 13:40 ---- 結構、予測しないことがおきますね。＞いったん修正した最小値が再度動いてしまうのですかね。だったようです。下記の最後の2行を足してみて下さい。 '■■縦軸の最大最小を修正■■ If minY > -10 Then yAxis.MinimumScale = -10 minY = -10 End If If maxY < 10 Then yAxis.MaximumScale = 10 maxY = 10 End If minY = yAxis.MinimumScale '縦軸の最小値 '★追加 maxY = yAxis.MaximumScale '縦軸の最大値 '★追加（γ） 2022/06/13(月) 14:19 ---- こうだったかもしれません。まだつぶし切れていないかもしれません。 '■■縦軸の最大最小を修正■■ If minY > -10 Then yAxis.MinimumScale = -10 End If If yAxis.MaximumScale < 10 Then yAxis.MaximumScale = 10 End If minY = yAxis.MinimumScale '縦軸の最小値 maxY = yAxis.MaximumScale '縦軸の最大値（γ） 2022/06/13(月) 14:31 ---- ありがとうございます。やってみます。今、印刷してみたらかなりズレてしまいました… これは、修正前のコードで実行した分です。（ポム） 2022/06/13(月) 14:58 ---- ちょっと出かけますので、次アクセスできるのはたぶん夜遅くになります。どなたか援軍になってもらえるとよいかと思います。（γ） 2022/06/13(月) 15:11 ---- 身も蓋もないんで憚られる事ではありますが... (もう、あえて言っちゃういます ^^; ) 広く意見を募れば「データテーブル辞めればいいじゃん」って考える人もこういう場合ある程度の割合で存在すると思うんですよね。グラフエリア・プロットエリアの両方を「枠なし」「塗りなし」にしてグラフをテーブル(セル範囲)側に溶け込ませるとか、「リンクされた図」をデータテーブルの代わりにグラフに(ちょい)重ねて配置するとか。そういったデザイン的な路線変更が可能であれば、案外サクっと解決するかも知れませんね。 (ま、たぶんそれが許されないから困ってらっしゃるんだとは思うんですけど...) （白茶） 2022/06/13(月) 15:31 ---- >>基準線とするデータはユーザー定義「;;;」で非表示にするとよいでしょう。これやってみましたか。データテーブル自体は空白になります。ただシートと違って行列の削除はできないみたいです。これも却下されるんでしょうね。（nm） 2022/06/13(月) 16:10 ---- 白茶様そうですね。今のフォーマットで、決定してしまったので上の決定なので担当者にも変更権限がなく… nm 様そうなんです。それも、やってみて枠は出てしまうので却下と… グラフ内に、図形で罫線描くってことになりました。そもそも、そういうので描いたものはズレてしまいますよね。（ポム） 2022/06/13(月) 18:15 ---- '基準値に対応する位置に線を引く For j = 1 To UBound(基準値配列) + 1 posY(j) = t + (maxY - 基準値配列(j - 1)) / (maxY - minY) * h With .Shapes.AddLine(l, posY(j), l + w, posY(j)).Line .Weight = 2# '■線の太さ .DashStyle = 線種配列(j - 1) '■線の種類 ■変更 .ForeColor.RGB = 色配列(j - 1) '■色 ■変更 .Visible = msoTrue End With ズレてしまうので変更するならここかなと思って (maxY - （minY-6)) * h と、してみたらエクセル上では-6と-8の位置にありますが出力するといい位置にきたのですが上の8と10はmaxYをいくら変えても下がって来てくれないのです。数値にして1くらい上へいっているので下げたいのです。どこを調整すれば良いか教えて下さい。（ポム） 2022/06/13(月) 18:22 ---- これで試してみてください。 Sub 基準値の書き込み() Dim 基準値配列 As Variant Dim 基準値 As Variant Dim 色配列 As Variant Dim 線種配列 As Variant Dim ch As Chart Dim pa As PlotArea Dim yAxis As Axis Dim minY#, maxY# Dim v# Dim l#, t#, w#, h# Dim posY#(1 To 4) Dim k As Long, j As Long 基準値配列 = Array(10, 8, -8, -10) '■ ''''基準値配列 = Array(20, 16, -16, -20) '■ 色配列 = Array(RGB(247, 150, 70), RGB(75, 172, 198), _ RGB(75, 172, 198), RGB(247, 150, 70)) '■変更線種配列 = Array(msoLineSolid, msoLineSolid, _ msoLineSysDash, msoLineSysDash) '■変更 For k = 1 To ActiveSheet.ChartObjects.Count Set ch = ActiveSheet.ChartObjects(k).Chart With ch Call deleteShape(ch) '■既に書き込まれている図形を削除 '■■縦軸の最大最小を修正■■ Set yAxis = .Axes(xlValue) With yAxis .MinimumScaleIsAuto = True '自動に戻す .MaximumScaleIsAuto = True minY = .MinimumScale '縦軸の最小値 maxY = .MaximumScale '縦軸の最大値 '最大値から調節開始 v = 基準値配列(0) If maxY < v Then .MaximumScale = v End If .MaximumScaleIsAuto = False '自動を無効化 v = 基準値配列(3) If .MinimumScale > v Then .MinimumScale = v End If .MinimumScaleIsAuto = False '自動を無効化 minY = .MinimumScale '縦軸の最小値 maxY = .MaximumScale '縦軸の最大値 End With 'プロットエリアの位置情報 With .PlotArea l = .InsideLeft t = .InsideTop w = .InsideWidth h = .InsideHeight End With '基準値に対応する位置に線を引く For j = 1 To UBound(基準値配列) + 1 posY(j) = t + (maxY - 基準値配列(j - 1)) / (maxY - minY) * h With .Shapes.AddLine(l, posY(j), l + w, posY(j)).Line .Weight = 2# '■線の太さ .DashStyle = 線種配列(j - 1) '■線の種類 .ForeColor.RGB = 色配列(j - 1) '■色 .Visible = msoTrue End With Next End With Next End Sub Function deleteShape(ch As Chart) Dim sp As Shape For Each sp In ch.Shapes sp.Delete Next End Function （γ） 2022/06/13(月) 20:45 ---- >グラフ内に、図形で罫線描くってことになりました。これを今マクロで罫線を描いているところですよね。ところでグラフが拡大縮小されたとき罫線も一緒に拡大縮小してくれますか。またグラフを移動した時も一緒に移動してくれますか。クラフと罫線をグループ化できないんですけど。この辺についてはどうなんでしょうか。（nm） 2022/06/14(火) 09:10 ---- それについては既にコメントしています。 | ・ちなみに、グラフを移動しても、書き込んだ直線は追随して移動しますが、 | グラフを拡大縮小すると崩れます。再実行してください。 |（γ） 2022/06/11(土) 00:02 このため、実行にあたって、常に既存の図形をいったん削除したうえで、そののちに図形を再追加させる仕様にしています。また、繰り返しせずに、・Set ch = ActiveChart すれば、現在アクティブなグラフに限定して処理が可能です。加えて、簡単なコード追加で、アクティブなブック内の各シートの各グラフに一括処理させることもできますね。（γ） 2022/06/14(火) 09:20 ---- （γ）さん了解しました。（ポム）さんレス汚してすみませんでした。（nm） 2022/06/14(火) 09:59 ---- nm 様グラフを、選択した状態で図形を追加すると動かないみたいです。選択せずに、直接描くとグラフを動かしたり拡大縮小してもついてきてくれないみたいです。（ポム） 2022/06/14(火) 12:49 ---- 解決ですかね。場所をお借りします。どのイベントが適切か判断できませんがとりあえず Deactivateイベントを使ってみました。 Calculateイベントも必要か? https://docs.microsoft.com/ja-jp/office/vba/excel/concepts/events-worksheetfunctions-shapes/chart-object-events 適切なタイミングで、「イベントON」マクロを実行します。例えば、ブックOPEN時に。うざいようであれば、「イベントOFF」を実行です。 '--- クラスモジュール Class1 ----- Option Explicit Public WithEvents myChart As Chart Private Sub myChart_Deactivate() 基準値の書き込み End Sub '--- 標準モジュール Module1 ----- Option Explicit Dim cht() As New Class1 Sub イベントON() Dim cho As ChartObject Dim k As Long For Each cho In Worksheets("Sheet1").ChartObjects '★実際のシート名に変更 k = k + 1 ReDim Preserve cht(1 To k) Set cht(k).myChart = cho.Chart Next End Sub Sub イベントOFF() Dim k As Long On Error Resume Next For k = 1 To UBound(cht) Set cht(k).myChart = Nothing Next End Sub （マナ） 2022/06/14(火) 16:16 ---- γ 様ありがとうございます。エクセルデータ上では、問題ないのですがやはり印刷するとズレてしまう事象は変わりなかったので t + (maxY - 基準値配列(j - 1)) / (maxY - minY) * h で、足したり、引いたりする数値を追記してみたらエクセル上では違う場所に罫線がありますが印刷するとぴったり合うようになりました。明日、担当者に見てもらい凡例をどのように入れるか等聞こうと思ってます。マナ様ありがとうございます。 Deactivateイベント等、初めて聞く言葉なのですが勉強の為、やってみたいと思います。（ポム） 2022/06/14(火) 18:41 ---- 「画面上では正確に表示されるようになりました」という発言は 2022/06/14(火) 18:41より前には、どこにもなかったように思います。「画面上ではOkだが、印刷したときにずれてしまう」と正確に書いていただきたかったですね。私の手元で印刷してみましたが、正確に印刷されました。プリンタとの関係もありますし、環境依存の話なのでしょう。ですから、あなた以外のかたが実行または印刷した場合にどうなるか、別の結果になる可能性もありますよ。一案ですが、・グラフを選択して「図としてコピー」し・適切な位置に「図（拡張メタファイル）」として貼り付けます。これで印刷してもズレないようになりませんか? また、こうして得られた図形は、移動も拡大縮小も問題なくできるはずです。メタファイルなので、拡大しても画像の精度は余り落ちないはずです。図になりますから、むろんデータの変更には追随しませんが。マクロ記録取れば、コードは得られます。トライされたらいかがですか? 私はいったんここで区切りとさせていただきます。（γ） 2022/06/15(水) 06:47 ---- >印刷するとズレてしまう私の場合は印刷プレビューで確認したところマイナス線だけが両方とも下方へ下がっています。基準値配列のマイナス値を減少して合わせました。 >エクセル上では違う場所に罫線がありますがこれは同じです。却下されなければいいですけどね。 >印刷するとぴったり合うようになりました。最終的には印刷目的だったのでしょうか。（nm） 2022/06/15(水) 11:54 ---- nm 様昨日、担当者に書き置きと出力した紙を置いて帰りました。今日は、バタバタしていて話す時間がなかったので明日まで保留となりました。でも、最終的にはDocuWorksかPDFになると思います。（ポム） 2022/06/15(水) 18:36 ---- γ 様分かりづらい文章すいませんでした。ずっと、書いているつもりでした。今現在は、アドインを設定して実行しているので私以外は、実行出来ないと思います。ただ、今までもエクセル内で図形を描いてずれなかったことがないのでズレるものって思っていましたがズレずに出力出来ると聞いてびっくりしています。（ポム） 2022/06/15(水) 18:50 ---- 規定のフォントを比較しました。「MSPゴシック」ではズレました。「游ゴシック」ではズレませんでした。（マナ） 2022/06/15(水) 20:39 ---- ↑DocuWorksプリンタで確認しました。（マナ） 2022/06/15(水) 20:42 ---- マナさん、ありがとうございました。＞「MSPゴシック」ではズレました。確認できました。私のは「游ゴシック」が設定されていました。なお、ズレる「MSPゴシック」でも、既に書いたように、「図としてコピー」「メタファイルで貼り付け」した図形を印刷するとズレずに印刷されました。あくまで、私の環境ですけど。（γ） 2022/06/15(水) 22:07 ---- マナ様 γ 様確認ありがとうございます。フォントを、確認してみます。「図としてコピー」「メタファイルで貼り付け」した図形を印刷すると → はい、やってみました。ズレずに印刷出来ました。とりあえず、フォントを確認して変更してみます。また、報告します。宜しくお願いします。（ポム） 2022/06/16(木) 07:47 ---- フォント確認しました。MSPゴシックでしたので変更して見ましたが私の場合では、ズレました… 別の原因が、あるのかもしれません。（ポム） 2022/06/16(木) 12:27 ---- 念のため。ブック（あるいはシート）を新規に作らないと既存シートのフォント変更ではだめですよ。（マナ） 2022/06/16(木) 12:50 ---- 念のため。 Excelの「オプション」で設定変更します。下記、参照。 http://www4.synapse.ne.jp/yone/excel/excel_syosiki_font1.html 設定変更してから、新しいブックを作成すれば、その既定フォントが変わっているはずです。（γ） 2022/06/16(木) 17:05 ---- マナ様 γ 様ありがとうございます。新規ブックを、開き規定フォントをゆうゴシックへ変更し再起動してから、シートコピーでコピーしたのですがフォントは、元のMSPゴシックとなってしまうようです。でも、ズレてはいないようにも思えます。ファイル自体のフォントが、変更されるわけではないのでしょうか? コピーしたら、コピーしたシートもフォントが変わるのかなと思ったので。 2016だと、規定フォントに変わると書いてあったのですが。（ポム） 2022/06/16(木) 18:28 ---- 試してみました、再現しました。シートコピーするだけでよいようです。理由はわかりませんが。これで解決ですか。（マナ） 2022/06/16(木) 18:56 ---- マナ様再現ありがとうございます。シートコピーだけでいいんですね。ありがとうございます。はい、解決しました! また、宜しくお願いします。（ポム） 2022/06/16(木) 21:19 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202206/20220610114555.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ