オフィス2003VBAのスプレッドシートにエクセルデータを貼り付けると、とても大きな文字で表示されます。
文字の大きさを小さく表示させるにはどうしたらよろしいでしょうか?
また、スプレッドシート枠を小さく表示(例えばズーム50%)させるにはどうしたらよいでしょうか?
ご存知の方教えてください。よろしくお願いします!
使っているコードは以下になります。
Dim xlWb As Object
Set xlWb = GetObject(Path & FileName_roga)
xlWb.Worksheets(1).UsedRange.Copy
No.1ベストアンサー
- 回答日時:
>文字の大きさを小さく表示させるには...
これはSpreadsheetのフォントサイズや行列サイズを変更する事で対応できないですか?
一例として
Private Sub CommandButton1_Click()
With Me.Spreadsheet1.Cells
If .Font.Size > 5 Then
.Font.Size = .Font.Size - 1
.RowHeight = .RowHeight - 1
.ColumnWidth = .ColumnWidth - 1
End If
End With
End Sub
こんなんでは?クリックする度に小さくします。
(-1 とかは適当です)
>スプレッドシート枠を小さく表示(例えばズーム50%)
Zoomに関わるプロパティが無いようなので、
オブジェクトのサイズ自体を変更するというような解釈でいいのでしょうか?
その場合は Frameコントロールを配置して、その中にSpreadsheetを置き、
Private Sub CommandButton2_Click()
Dim x
x = InputBox("zoom?")
x = Val(x)
If x > 0 Then
If x > 100 Then x = 100
Me.Frame1.Zoom = x
End If
End Sub
こんな感じでFrameのZoomプロパティで制御してはどうですか?
Spreadsheetコントロールを普段から使いこなしているわけではないので(というか全く使わない...)
的外れな事を書いてるかもしれません。
他の方のアドバイスもお待ちください。
回答ありがとうございます!
エクセルのツールバー⇒表示⇒「zoom」のようなものは、スプレッドシートにないような感じですね。
教えていただいた、フォントサイズの縮小、列幅の変更で対応できました。
私のコードのどこかがおかしく、適応されたのが1枚目のシートのみでした。いかにコードを貼り付けます。
何度見ても直すところがわかりませんので、どなたか教えていただけませんでしょうか?
Dim xlWb As Object
Set xlWb = GetObject(Path & FileName_roga)
For i = 1 To Workbooks(FileName_roga).Sheets.count - 3
Spreadsheet2.Sheets.Add
Next i
sheet_number = 1
For i = 1 To Workbooks(FileName_roga).Sheets.count
xlWb.Worksheets(i).UsedRange.Copy
With Spreadsheet2
.Worksheets(i).Cells(1, 1).Paste
.Sheets(i).Name = xlWb.Worksheets(i).Name
.Sheets(i).Range("A1").Select
.Cells.Font.Size = 8
.Cells.ColumnWidth = 6
End With
If Trim(xlWb.Worksheets(i).Name) = "ロガー(表)" Then sheet_number = i
Next i
Spreadsheet2.Sheets(sheet_number).Select
No.2
- 回答日時:
Workbooks(FileName_roga)って
Set xlWb = GetObject(Path & FileName_roga) でセットした xlWb の事ですよね?
その前提で、下記のようにしてみてください。
Dim xlWb As Object
Set xlWb = GetObject(Path & FileName_roga)
For i = 1 To xlWb.Worksheets.Count - 3
Spreadsheet2.Sheets.Add
Next i
sheet_number = 1
For i = 1 To xlWb.Worksheets.Count
xlWb.Worksheets(i).UsedRange.Copy
With Spreadsheet2.Sheets(i) '※1 ここでSheetを指定
.Cells(1, 1).Paste
.Name = xlWb.Worksheets(i).Name
.Range("A1").Select
.Cells.Font.Size = 8 '※2
.Cells.ColumnWidth = 6 '※3
End With
If Trim(xlWb.Worksheets(i).Name) = "ロガー(表)" Then sheet_number = i
Next i
Spreadsheet2.Sheets(sheet_number).Select
※1でSheetも含めてWithステートメントでくくって
※2、※3 の Cells の親もちゃんと指定しないといけません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワード ある日突然 文書の表...
-
wordの文書をPC画面中央に表示...
-
OLEオブジェクトを自動でサイズ...
-
Outlookでのメールで 記入する...
-
skypeのバージョンアップをした...
-
zoomでオープンキャンパスがあ...
-
エクセルの列と行の見出しが小...
-
ユーチューバーになろうって友...
-
突然へんなボタンが出てきたの...
-
PCが常時ズーム状態になってし...
-
zoomについて質問です。 明後日...
-
結婚式余興ムービーの編集の仕...
-
私はiPhonexsを使ってるのです...
-
結局、ノートパソコンはいつ買...
-
av4と言うエ○サイトって動画を...
-
ネットワーク上のコンピュータ...
-
クリープを入れないコーヒーな...
-
勝手にフォルダやファイルが開...
-
「共有違反」って?
-
パソコンクラブでやることが思...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワード ある日突然 文書の表...
-
wordの文書をPC画面中央に表示...
-
OLEオブジェクトを自動でサイズ...
-
YAHOO/JAPANの表示サイズ
-
エクセルの列と行の見出しが小...
-
【エクセル2003】シート保...
-
PowerPointでマクロをショート...
-
skypeの未読オレンジマーク
-
Skypeで映像が送れないです
-
pptxをPDFで保存すると、90%サ...
-
zoomについて質問です。 明後日...
-
Wordの印刷レイアウト表示のと...
-
ノートパソコンでzoomを使って...
-
エクセルでズーム窓に好みの%...
-
Outlookでのメールで 記入する...
-
Googleフォトで、月と日付が出...
-
zoomの連絡先追加ができない
-
スカイプで片方のみWebカメラ動...
-
PC(W10)のMicrosoft Edge を...
-
相談です。今現在AndroidのLG S...
おすすめ情報