vba [vba] 사진(이미지) 클릭시 확대 / 축소하기
페이지 정보
본문
Sub PictureToggleZoom()
Dim P As Picture, C As Range, V As Variant
Set P = ActiveSheet.Pictures(Application.Caller)
P.ShapeRange.ZOrder msoBringToFront
P.ShapeRange.LockAspectRatio = msoTrue
If InStr(P.Name, "TogglePicture") = 0 Then _
P.Name = Join(Array("TogglePicture", P.TopLeftCell.Address(0, 0), False))
V = Split(P.Name)
Set C = Range(V(1))
V(2) = Not V(2)
If V(2) Then
P.Width = C.Width * 5
P.Left = P.Left - (P.Width - C.Width)
Else
P.Width = C.Width
P.Left = C.Left
End If
P.Name = Join(V)
End Sub
- 이전글[vba] Bar Code Ctrl 를 이용한 QR CODE 사용하기 20.01.13
- 다음글[vba] InputBox 에 PasswordChar 적용하기 / InputBox 로 비밀번오 입력받기 19.09.29
댓글목록
등록된 댓글이 없습니다.