エクセル シートのコピーで幅が変更される

初歩的な質問で申しわけありません。
エクセルのシートのコピーをした際に、
新しいBookにコピーした場合には、コピー元と幅が同一なのですが、
既存のBookにコピーした際、幅が小さくなってしまいます。

以前の質問等を参考に
　1.プリンタの設定が同一の事
　2.標準フォント・サイズが同一のこと
を確かめました。

このような現象ははじめてで。。。
申しわけありません。
ご回答をいただきたいです。
よろしくお願い致します。

No.3 ベストアンサー 回答者： Wendy02 回答日時： 2009/02/16 00:53

こんばんは。

>コピー先のシート「スタイル：標準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*)

となっていました。
ということは、マクロでコピーを行った場合、
マクロ名のついたスタイル名のフォントが基準となると
いうことで、幅が変わってしまったのかな。と思いました。

解釈が間違っていたらすみません。

本当にいろいろと教えていただいてありがとうございます。

お礼日時：2009/02/18 09:32

No.2 回答者： Wendy02 回答日時： 2009/02/15 14:30

こんにちは。

>既存のBookにコピーした際、幅が小さくなってしまいます。
同バージョンで起こる現象としては、スタイルの設定があります。スタイルの中の「標準」のフォントサイズを変えると、そのようになるのです。

>2.標準フォント・サイズが同一のこと
　標準フォントというのは、標準フォントという名前であって、10～12 point ぐらいまでの間は、セル幅は変更されませんが、それ以外は変わってしまいます。その上に、個々の書式のフォントを11.5 point に変えたとしても、同様です。
　
具体的には、スタイルの中のフォントサイズを　9 pointにしているので、そのようになります。

この回答へのお礼

wendy02様
いつもお世話になっております。
もう一つの質問の方もありがとうございます。
「ツール」「オプション」の標準フォントだけを気にしていたのですが、「スタイル」もあるのですね。
無知ですみません。
早速、見てみました。
元のファイルのシート「スタイル：標準2（11p）」
コピー先のシート「スタイル：標準2（11p）」と同一でした。

他にどこか見る場所等、ありましたら、
教えていただけると嬉しいです。
よろしくお願いいたします。

お礼日時：2009/02/15 15:35

No.1 回答者： hayasi456 回答日時： 2009/02/14 18:52

office XPと２００３で２通りやってみました。

結果は同じでした。

１）sheet１のインデックス上で右クリック「移動またはコピー」を選び「コピーを作成する」にチェックを入れるとsheet１（２）が出来ます。sheet１と内容、列の幅、行の高は同じです。

２）sheet１の列Ａの左側、行１の上であるコーナーをクリックしてシート全体を選択しコピー他のsheetを開きセルＡ１を選択して貼り付けでも同じ結果でした。

やってみてください。

この回答へのお礼

回答ありがとうございます。
説明不足で申し訳ありません。
バージョンの違いと思い、２００２と２００７で行ってみました。
(1)マクロによる新規ブックの作成
(2)シートのコピー
２００２だと幅が縮小され、２００７だと縮小されませんでした。
また、マクロで作成したブックに手でシートのコピーをしても
２００２だと縮小され、２００７だと縮小されません。

特に、ブックの作成時、特殊なことはしていないのですが。。。
何かお分かりになれば、教えていただきたく、
お願いいたします。

お礼日時：2009/02/15 09:57