Excel VBA質問箱 IV

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

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


41955 / 76735 ←次へ | 前へ→

【39854】Re:いくつかの図形の描写、消去をしたい
発言  ひげくま  - 06/7/3(月) 10:48 -

引用なし
パスワード
   ▼おか さん:
こんにちは。

>ActiveSheet.Shapes.AddShape(msoShapeRectangle, 162#, 28.5, 322.5, 12#). _
>    Select
>
>  1. Selection.Name = "line3"
>
>  Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
>  Selection.ShapeRange.Fill.Visible = msoTrue
>  Selection.ShapeRange.Fill.Solid
>
>1.のように適当に前回のひげくまさんの回答を参考にしましたが
>一応エラーなしに消去できましたがそれでいいのでしょうか

大丈夫だと思います。

Withを使って、上記コードを、

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 162#, 28.5, 322.5, 12#)
  .Name = "line3"
  .Fill.ForeColor.SchemeColor = 13
  .Fill.Visible = msoTrue
  .Fill.Solid
End With

というようにまとめることができます。
やりすぎかもしれませんが、さらにWithを使って、

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 162#, 28.5, 322.5, 12#)
  .Name = "line3"
  With .Fill
    .ForeColor.SchemeColor = 13
    .Visible = msoTrue
    .Solid
  End With
End With

とまとめることもできます。

With の使い方を覚えると、タイピングが少なくて済むし、見た目にもすっきりして解りやすくなります。
使いすぎると逆に解りにくくなる場合もありますが。

0 hits

【39696】いくつかの図形の描写、消去をしたい おか 06/6/29(木) 11:09 質問
【39698】Re:いくつかの図形の描写、消去をしたい ひげくま 06/6/29(木) 11:27 回答
【39705】Re:いくつかの図形の描写、消去をしたい おか 06/6/29(木) 12:53 お礼
【39718】Re:いくつかの図形の描写、消去をしたい ひげくま 06/6/29(木) 16:21 発言
【39835】Re:いくつかの図形の描写、消去をしたい おか 06/7/2(日) 15:58 お礼
【39854】Re:いくつかの図形の描写、消去をしたい ひげくま 06/7/3(月) 10:48 発言
【39975】Re:いくつかの図形の描写、消去をしたい おか 06/7/4(火) 20:03 お礼

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