사각형 그리기 #2 알록달록 사각형들 그리기 일정한 크기,개수의 여러 색깔의 사각형을 그리는 코드 알록달록 사각형 그리기 풀코드 Sub 알록달록사각형() Set rect = ActiveSheet.Range("b2") For X = 20 To 120 Step 10 For Y = 20 To 120 Step 10 ActiveSheet.Rectangles.Add(rect.Left + Y, rect.Top + X, 8, 8).Select Selection.Interior.ColorIndex = Int(Rnd * 56) Next Y Next X End Sub 코드 설명 Set rect = ActiveSheet.Range("b2") B2로 기본 사각형의 위치를 설정 *기본 사각형의 위치를 변경하고싶으면 ("b2") ..

기본 사각형 그리기 사각형 그리기 사각형 그리기 #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...

일정한 간격으로 증가/ 감소하는 원을 그리기 실행 이미지 / 실행 화면 일정한 간격으로 증 / 감소 원 그리기 코드아래 코드 Option Explicit Public Sub setting() Dim tmp As Single Dim i As Integer Dim left As Single Dim top As Single Dim diameter As Single tmp = 10 For i = 3 To 8 If i = 3 Then left = 150 + i top = 150 + i diameter = i * tmp Else left = left + (diameter - (i * tmp)) / 2 top = top + (diameter - (i * tmp)) / 2 diameter = i * tmp End If..