| |
▼おか さん：
こんにちは。
>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 の使い方を覚えると、タイピングが少なくて済むし、見た目にもすっきりして解りやすくなります。
使いすぎると逆に解りにくくなる場合もありますが。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
