<アクティブシートのみ保存で文字書式が変わ

Writer: admin Type: 詳細分かる方教 Date: 2018-12-11 00:00
<アクティブシートのみ保存で文字書式が変わってしまう>マクロは、あまり詳しくないのですが開いているシートのみを新しくデスクトップに保存するコードを使用しています。(下記) 他のシートにも同じコード(削除するボタン名のみ変えて)を使っているのですが保存したファイルを開くと文字の書式がMSPゴシックから遊ゴシックに変わって保存になっていました。どこを設定すれば変わらないのでしょうか? 他のシートでのマクロ実行で作成されたファイルの文字書式はそのままでした。Sub エクセル保存()’デスクトップに保存()desktop_path = CreateObject("WScript.Shell").SpecialFolders.Item("Desktop") & "\" myname = ActiveSheet.Name ActiveSheet.Copy Cells.Copy Cells.PasteSpecial xlPasteValues ActiveSheet.Shapes("Button 1").Select 'ボタンを削除Selection.Delete '余計な箇所を削除Columns("N:Q").Select Selection.ClearContents Range("A1").Select ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 Application.CutCopyMode = False ActiveWorkbook.SaveAs _ Filename:=desktop_path & myname & ".xlsx" ActiveWindow.Close End Sub共感した0###Cells.PasteSpecial xlPasteValuesこれは 値のみ貼り付けしなさいというコードです従って フォントのような書式は コピーされません。書式までコピーするなら単純に ActiveSheet.Paste で いいのではナイス0
###回答ありがとうございます。そうなんです。リンクが沢山ありコピーしたファイルのみをメールで送るため値の貼付けにしています。他のシートも同じく”値の貼付け”にしているのですが何故か、このシートのみ(”余計な箇所を削除”はこのシートのみ)が文字書式が変わって保存されます・・・・
###もちろん基本設定でフォントは変えました。なんせ記載の通り初心者なので回答の意味もチンプンカンプンの上、こちらからの説明もうまくできない為お手数おかけしました。こちらでは解決はしませんでしたが質問を終了したいと思います。ありがとうございました。

 

TAG