엑셀 vba 도형 종류에 따라 색 바꾸기 및 위치 변경하기

 

엑사남 3강 Study

Sub shape_color() Dim sh As Object     '또는 Dim sh As shape     'shape가 object에 비해     '좁은 범위일 듯 Dim lngC As Long     '색상번호를 넣을 변수     For Each sh In ActiveSheet.Shapes         '현재 시트의 도형을 하나씩 sh에 담음         sh.Left = Range("b1").Left                  lngC = lngC + 1         sh.Fill.ForeColor.SchemeColor = lngC     Next End Sub

엑셀 파일 다운로드

sh, object, shape, lngC, Long, for, each, left, fill, forecolor, schemecolor, 엑셀, vba.xlsm

0.04MB

Sub shape_color2() Dim sh As Object     '또는 Dim sh As shape     'shape가 object에 비해     '좁은 범위일 듯 Dim lngC As Long     '색상번호를 넣을 변수 lngC = 8     '매크로 실행버튼도 도형으로 잡힘     '6으로 할 경우 아래에서     '색번호가 음수가 나와 에러발생     For Each sh In ActiveSheet.Shapes         '현재 시트의 도형을 하나씩 sh에 담음         sh.Left = Range("g1").Left         '위치는 left와 top만 가능         'right는 편법으로 left를 맞추고         '도형의 너비 width만큼 빼주거나 더해여 해결                  lngC = lngC - 1         sh.Fill.ForeColor.SchemeColor = lngC     Next End Sub

엑셀 파일 다운로드

sh, object, shape, lngC, Long, for, each, left, fill, forecolor, schemecolor2, 엑셀, vba.xlsm

0.04MB