엔써지사관리34 아트인아일랜드 박정희 2023. 12. 6. 사진삽입 소스 Sub toggle_object_Zoom() '사진 및 모두 가능(셀의 크기와는 다르게 그림의 크기 조정시 사용) With ActiveSheet.Shapes(Application.Caller) '매크로 실행한 도형 .LockAspectRatio = msoTrue '그림 가로세로 고정비율 설정 If Right(.Name, 1) "#" Then '그림의 제일 마지막 문자가 "#"이면 .ScaleHeight 3, 0, msoScaleFromTopLeft '왼쪽 윗지점 기준으로 그림을 3배 확대 .ZOrder msoBringToFront '그림을 제일 앞으로 가져옴 .Name = .Name & "#" '그림 이름 뒤에 "#"을 추가함 Else .ScaleHeight 0.3125, 0, msoScaleFromTo.. 2023. 4. 15. 수압발전기 최초공개 2023. 2. 18. 엑셀VBA20230201 보호되어 있는 글 입니다. 2023. 2. 1. 이전 1 2 3 4 ··· 9 다음