• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




[vba] [vba] 사진(이미지) 클릭시 확대 / 축소하기

하나를하더라도최선을
2019.09.29 22:19 1,432 0

본문



93212966061dab9c7783a922405bac10_1569763179_0285.png
 


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(00), False))
    V = Split(P.Name)
    Set C = Range(V(1))
    V(2= Not V(2)
    If V(2Then
        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





댓글목록 0

등록된 댓글이 없습니다.