[사무용 엑셀 매크로] 사각형 그리기 #1 (기본 사각형 그리기)

기본 사각형 그리기

 

 

사각형 그리기

 

사각형 그리기 #1 기본 사각형 그리기

 

풀 코드

Sub 사각형그리기()
    ActiveSheet.Rectangles.Add(20, 30, 84, 81).Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
    Selection.ShapeRange.Fill.Visible = True
    Selection.ShapeRange.Fill.Solid
End Sub

 

코드 설명

ActiveSheet.Rectangles.Add(20, 30, 84, 81).Select

ActiveSheet.Rectangels.Add(왼쪽 거리, 위쪽 거리, 사각형 폭, 사각형 높이).Select

 

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

선택된도형.채우기.전면색상.색상 = 10 (빨간색)

해당 부분을 다른 값으로 변경하면 도형의 색상을 변경할 수 있다.

Selection.ShapeRange.Fill.Visible = True

선택된도형.채우기여부 = True 

해당 도형의 전면부 색상을 채우고 싶으면 True,  채우고 싶지 않으면 False로 지정하면 된다. 

하지만 원래 기본 값이 True라서 따로 지정하지않아도 상관없다.

Selection.ShapeRange.Fill.Solid

선택된 도형.채우기.단색 인데.. 해당 도형에는 색상을 하나밖에 설정하지 않아서 따로 설정하지 않아도 상관 없다.

 

혹시 필요한 사람들을 위해 파일을 올려두겠다.

 

basicDrawRectangle.xltm

0.02MB