Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12438 / 13646 ツリー ←次へ | 前へ→

【10492】マクロからセルの書式で「折り返して全体を表示するのチェックをはずす」 ken 04/1/29(木) 13:32 質問
【10493】Re:マクロからセルの書式で「折り返して全... Seraph 04/1/29(木) 13:49 回答
【10499】Re:マクロからセルの書式で「折り返して全... ken 04/1/29(木) 17:39 お礼

【10492】マクロからセルの書式で「折り返して全体...
質問  ken  - 04/1/29(木) 13:32 -

引用なし
パスワード
   エクセル2000を使っております。
マクロからセルの書式を設定したいと考えています。

「折り返して全体を表示する」のチェックをはずした状態にしたいのですが
設定がわかりません。ご教授ください。よろしくお願いします。

またヘルプで調べたのですが、情報に行き着きませんでした。
どのようにして調べればよいのでしょうか?

【10493】Re:マクロからセルの書式で「折り返して...
回答  Seraph  - 04/1/29(木) 13:49 -

引用なし
パスワード
   ▼ken さん:
>エクセル2000を使っております。
>マクロからセルの書式を設定したいと考えています。
>
>「折り返して全体を表示する」のチェックをはずした状態にしたいのですが
>設定がわかりません。ご教授ください。よろしくお願いします。

マクロの自動記録でやると以下の様なコードが生成されます。
後は、必要なところをご自分のコードに加工して埋め込んでみてはどうでしょう?

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2004/1/29 ユーザー名 : Seraph
'

'
  Range("D18").Select
  With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlBottom
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .MergeCells = False
  End With
  With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .MergeCells = False
  End With
End Sub

>またヘルプで調べたのですが、情報に行き着きませんでした。
>どのようにして調べればよいのでしょうか?

【10499】Re:マクロからセルの書式で「折り返して...
お礼  ken  - 04/1/29(木) 17:39 -

引用なし
パスワード
   ありがとうございます。

自動記録してみればよいんですよネ。
ありがとうございました。

12438 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free