べんりあつめ。

絶妙バランスを目指したい!絶対領域ブログ!

シェイプに関連するコード

2018/04/08

シェイプに関連するコード
ActiveSheet.Shapes("シェイプ名").■

■に入る有効なコード

⇒シェイプそのものの表示非表示
Visible = True
Visible = Folse

⇒最背面、最前面
ZOrder msoBringToFront
ZOrder msoSendToBack

⇒塗りの表示非表示
Fill.Visible = True
Fill.Visible = False

⇒線の表示非表示
Line.Visible = True
Line.Visible = False

⇒シェイプの位置
ShapeRange.Height = 100
ShapeRange.Width = 100
ShapeRange.Top = 100
ShapeRange.Left = 100

スポンサーリンク

----- べんりあつめ。-----

⇒シェイプの角度
ShapeRange.Rotation = 90

⇒塗りの色
Fill.ForeColor.RGB = RGB(100, 100, 100)

※色をいくつか
'赤 ⇒ RGB(255, 0, 0)
'青 ⇒ RGB(0, 130, 255)
'黄 ⇒ RGB(255, 230, 0)
'橙 ⇒ RGB(255, 150, 0)
'緑 ⇒ RGB(0, 150, 0)
'紫 ⇒ RGB(150, 0, 150)
'黒 ⇒ RGB(0, 0, 0)

⇒塗りの不透明度
Fill.Transparency = 0
( 1 で、透明 0.5 で、50% 0 で通常 )

⇒線幅
Line.Weight = 0.75

⇒点線
Line.DashStyle = msoLineSolid
Line.DashStyle = msoLineSysDot
Line.DashStyle = msoLineSysDash
Line.DashStyle = msoLineDash
Line.DashStyle = msoLineDashDot
Line.DashStyle = msoLineLongDash
Line.DashStyle = msoLineLongDashDot
Line.DashStyle = msoLineLongDashDotDot

⇒線の種類
Line.DashStyle = msoLineSingle
Line.DashStyle = msoLineThinThin
Line.DashStyle = msoLineThickThin
Line.DashStyle = msoLineThinThick
Line.DashStyle = msoLineThickBetweenThin

⇒線の色
Line.ForeColor.RGB = RGB(100, 100, 100)

⇒線の不透明度
Line.Transparency = 0

スポンサーリンク

スマホのみ下に表示