![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.3ベストアンサー
- 回答日時:
こんばんは。
>コピー先のシート「スタイル:標準2(11p)」と同一でした。
「スタイル名(S):標準2(11p)」というのは、ユーザー設定だと思います。
通常の名称は、そのようにはなっておりません。誰かが設定したものだと思います。
こちらでは細かい操作するよりも、以下のマクロで調べたほうが早いです。アクティブなシートに対して、調べるものです。
( )括弧内は、標準です。括弧の前に「*」が出てきたら、設定は標準にはなっていません。
取り付け方:
Alt + F11 -> 挿入 -> 標準モジュール
貼り付け
Alt + F11 で、VBEditor を閉じて、Alt + F8 で、「Test1」 を探してクリックします。
「標準幅とウィンドウ・ズームとスタイルの標準フォント・サイズを調べるマクロ」
Sub Test1()
Dim w As Double
Dim z As Long
Dim f As Double
Dim i As Long
Dim p As String
Dim msg As String
w = ActiveSheet.StandardWidth
If w <> 8.38 Then p = "*" Else p = ""
msg = "現在幅:" & w & p & "(8.38)"
z = ActiveWindow.Zoom
If z <> 100 Then p = "*" Else p = ""
msg = msg & vbCr & "ズーム:" & z & p & "(100)"
MsgBox msg
For i = 1 To ActiveWorkbook.Styles.Count
With ActiveWorkbook.Styles(i)
If InStr(.NameLocal, "標準") > 0 Then
f = .Font.Size
If f < 10 Or f > 12 Then p = "*" Else p = ""
MsgBox "スタイル名: " & .NameLocal & vbCrLf & "フォントサイズ: " & f & p & "(10~12)"
End If
End With
Next
End Sub
回答ありがとうございました。
お礼に添付ができず、言葉でうまく説明できるか不安ですが。。。
2002,2007ともに行ってみました。
<2002・2007コピー元>
現在幅:8.5* ズーム:100
スタイル名:標準(9*)・標準2(11)・標準3(9*)
<2002コピー先>
現在幅:8.38 ズーム:100
スタイル名:標準(11)・標準2(11)・標準3(9*)・
標準_コピー元マクロ名(9*)
<2007コピー先>
現在幅:8.38 ズーム:100
スタイル名:標準(11)・標準2(11)・標準2 2(11)・
標準3(9*)・標準4(9*)・
標準_コピー元マクロ名(9*)
となっていました。
ということは、マクロでコピーを行った場合、
マクロ名のついたスタイル名のフォントが基準となると
いうことで、幅が変わってしまったのかな。と思いました。
解釈が間違っていたらすみません。
本当にいろいろと教えていただいてありがとうございます。
No.2
- 回答日時:
こんにちは。
>既存のBookにコピーした際、幅が小さくなってしまいます。
同バージョンで起こる現象としては、スタイルの設定があります。スタイルの中の「標準」のフォントサイズを変えると、そのようになるのです。
>2.標準フォント・サイズが同一のこと
標準フォントというのは、標準フォントという名前であって、10~12 point ぐらいまでの間は、セル幅は変更されませんが、それ以外は変わってしまいます。その上に、個々の書式のフォントを11.5 point に変えたとしても、同様です。
具体的には、スタイルの中のフォントサイズを 9 pointにしているので、そのようになります。
wendy02様
いつもお世話になっております。
もう一つの質問の方もありがとうございます。
「ツール」「オプション」の標準フォントだけを気にしていたのですが、「スタイル」もあるのですね。
無知ですみません。
早速、見てみました。
元のファイルのシート「スタイル:標準2(11p)」
コピー先のシート「スタイル:標準2(11p)」と同一でした。
他にどこか見る場所等、ありましたら、
教えていただけると嬉しいです。
よろしくお願いいたします。
No.1
- 回答日時:
office XPと2003で2通りやってみました。
結果は同じでした。
1)sheet1のインデックス上で右クリック「移動またはコピー」を選び「コピーを作成する」にチェックを入れるとsheet1(2)が出来ます。sheet1と内容、列の幅、行の高は同じです。
2)sheet1の列Aの左側、行1の上であるコーナーをクリックしてシート全体を選択しコピー他のsheetを開きセルA1を選択して貼り付けでも同じ結果でした。
やってみてください。
回答ありがとうございます。
説明不足で申し訳ありません。
バージョンの違いと思い、2002と2007で行ってみました。
(1)マクロによる新規ブックの作成
(2)シートのコピー
2002だと幅が縮小され、2007だと縮小されませんでした。
また、マクロで作成したブックに手でシートのコピーをしても
2002だと縮小され、2007だと縮小されません。
特に、ブックの作成時、特殊なことはしていないのですが。。。
何かお分かりになれば、教えていただきたく、
お願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのオートフィルについての質問です。 1 2023/06/14 13:34
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) エクセルについて教えてください。 3 2023/03/24 08:34
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- その他(Microsoft Office) 関数を教えてください 1 2022/12/13 15:56
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルでシートを「移動またはコピー」すると印刷範囲がかわってしまうのはどうしてですか??
Excel(エクセル)
-
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
EXCEL2007でシートをコピーすると、オブジェクトの大きさが変わってしまいます。
Excel(エクセル)
-
-
4
シートのコピー、セル全体のコピーで列幅が変わる
Excel(エクセル)
-
5
エクセルで同じ大きさ、同じ倍率、同じ余白なのにプレビューが違います。なぜ?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メッセージボックスに表示する...
-
ワードで英単語を入力すると文...
-
Outlookメールで、画面の文字の...
-
差し込み印刷された時の文字の...
-
パソコンの表示フォントが突然...
-
A4サイズの用紙いっぱいに1文字...
-
箇条書きの数字の一部の色を変...
-
WORDで、一行当たりの文字数を4...
-
ワードやエクセルで文字を縦長...
-
ワードでA4 1行40字×30行...
-
ワードで、文字の大きさを変え...
-
Wordの行設定がうまくできません。
-
Excelエクセル ヘッダの文字サ...
-
Excel2007でハイパーリンクを設...
-
Wordについて
-
縦書きで途中から2行にする場合...
-
Word for Macで、一行当たりの...
-
書式のフォントを決めても元に...
-
Chem Drawの使い方
-
ワードの原稿用紙、文字ずれに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メッセージボックスに表示する...
-
ワードで英単語を入力すると文...
-
ワードやエクセルで文字を縦長...
-
差し込み印刷された時の文字の...
-
パソコンの表示フォントが突然...
-
A4サイズの用紙いっぱいに1文字...
-
Outlookメールで、画面の文字の...
-
ワードで、文字の大きさを変え...
-
ワードでA4 1行40字×30行...
-
箇条書きの数字の一部の色を変...
-
縦書きで途中から2行にする場合...
-
WORDで、一行当たりの文字数を4...
-
急に文字が細くて、見づらくな...
-
ワードの原稿用紙、文字ずれに...
-
Chem Drawの使い方
-
Gメールの画面すべてのフォント...
-
Excel2007でハイパーリンクを設...
-
ワードで筆のような文字にしたい
-
セルの条件によってフォントサ...
-
Wordについて
おすすめ情報