1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

도형회전각도 메크로 조정

조회 수 3304 추천 수 0 2010.11.22 15:56:58

도형을 클릭하면 안에 있는 도형이 회전하는것 같은 모양을 내고 싶어서 그러는데요..

 

회전각도를 메크로로 지정해줘서..시간별로 각도의 크기를 변해주면서.. 회전하는것 처럼 보이게 하는방법이 있나요??


댓글 '3'

profile

[레벨:30]아별

2010.11.26 04:38:36
*.130.73.75

가끔.. roanoh님은 무슨 일을 하시는지 궁금할때가 있습니다.

왜 이런 질문을 할까? 하는 ㅎㅎ

도형 색을 바꾸는 질문이나, 소리가 나는 질문이나, 차트 질문이나..

서로 연관성이 없어 보이는 질문들을 하시길래.. 잠깐 혼자 생각해봤습니다. ㅎㅎ

 

암튼.. 답변 드리겠습니다. ^^

 

첨부파일을 참고하세요..

VBA_Shape_rotating_20101126-1.xls

 

 

도형을 클릭하면 도형이 회전하게 되는 매크로는 아래와 같습니다.

도형을 오른쪽 마우스 클릭 > 매크로 지정으로 ratateShapeByClick이라는 매크로를 지정해주세요.

'도형을 클릭하면 10도씩 회전시키기
Sub rotateShapeByClick()
    With ActiveSheet.Shapes(Application.Caller)
        .Rotation = .Rotation + 10
    End With
End Sub

 

 

 

시간단위로 도형을 회전시키고 싶으시다면 아래 코드를 이용해보세요.

워크시트에 컨트롤 도구 상자의 버튼을 만들고 아래 매크로를 각각 지정해주세요.

Option Explicit

Public startTime As Date

 

'1초 단위로 도형을 10도씩 회전시키기
Sub rotateOntime()
    startTime = Now + TimeValue("00:00:1")
    Application.OnTime startTime, "rotateOntime"
    With ActiveSheet.Shapes("직사각형 1")
        .Rotation = .Rotation + 10
    End With
End Sub

 

'1초 단위로 회전시키는 작업 중지시키기
Sub killOnTime()
    On Error GoTo bye
    Application.OnTime earliesttime:=startTime, procedure:="rotateOntime", schedule:=False
bye:
End Sub

 

 

첨부

[레벨:6]ryanoh

2010.11.29 08:47:15
*.239.74.58

엑셀로..간단한 시물레이션 만들어요.ㅋㅋㅋ (취미긴하지만...)

 

가끔..ppt대신 엑셀도 사용하고요..^^ ㅋㅋㅋ 그때마다 하고싶은게 생기고...

 

찾다가 못찾겠으면 올리곤하죠.. ㅋㅋㅋㅋㅋ

profile

[레벨:30]아별

2010.12.01 11:10:29
*.106.104.58

ㅎㅎ 취미가 직업이 되기도 하지요..
또 하시다가 막히는거 있음 물어보세요.. ^^
제가 머 다 아는 것도 아니지만.. 찾아서 알려드릴께요. ㅎㅎ

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40253
242 버젼이 만료 되었네요.ㅡㅡ [1] [레벨:2]헤히후 2011-01-01 2250
241 엑셀에서 컴퓨터시간 자동변경하기 [2] [레벨:1]사랑 2010-12-16 3927
240 엑셀에서 선을 연장하고 싶어요.. [4] [레벨:2]만쥬 2010-12-14 4085
239 엑셀에서 복사할 때 행 및 열넓이까지 그대로 복사하는 방법 [7] [레벨:2]만쥬 2010-12-07 10171
238 아별님 헬프요~ 조건가져오기 및 정렬 [3] [레벨:1]흙암소 2010-12-06 2440
237 다량데이터 일부분씩 저장하기 [1] [레벨:1]해적 2010-12-06 2853
» 도형회전각도 메크로 조정 [3] [레벨:6]ryanoh 2010-11-22 3304
235 엑셀2010 상태표시줄 클릭하면 [1] [레벨:4]쟈니 2010-11-22 2907
234 이거 왜 안될까여?? ㅠㅠ(메크로관련) [2] [레벨:6]ryanoh 2010-11-15 2392
233 자동 필터의 기능을 사용하여 제작한 메크로를 대체 가능한가요? file [2] [레벨:1]이엑셀 2010-11-12 2840
232 아별님, 데이터 통합방법을 모르겠습니다~ [2] [레벨:1]노브레인 2010-11-10 2591
231 인쇄 미리보기후 생기는 점선 사라지게 하는방법 [7] [레벨:1]어쩌면 2010-11-04 8960
230 아별툴 감사히 잘 쓰고 있습니다.~~ [2] [레벨:3]알알 2010-11-03 2387
229 행열 바꿈 질문좀 드릴께요~ file [1] [레벨:2]yang1019 2010-11-03 2732
228 일별 구매 현황에서 품목별 최근,최고,최저 단가구하기 file [1] [레벨:1]강상준 2010-11-02 2949
227 엑셀왕초보 [1] [레벨:1]사슴 2010-10-29 2479
226 매크로 질문입니다. file [2] [레벨:1]east 2010-10-27 2383
225 체크하면 돈이 자동으로 옆에 써지는 함수 file [2] [레벨:4]쟈니 2010-10-26 2453
224 재미난 엑셀 기능구연 가능?? [1] [레벨:6]ryanoh 2010-10-25 3171
223 [엑셀초보]질문 올립니다... file [2] [레벨:1]김해영이 2010-10-18 2805