วิธีการขยายภาพเมื่อคลิกใน Excel

สมมติว่าคุณได้แทรกรายการรูปภาพลงในคอลัมน์และจับคู่ขนาดรูปภาพกับขนาดเซลล์ดังภาพหน้าจอด้านล่าง เนื่องจากรูปภาพที่แทรกเข้ามาดูมีขนาดเล็ก คุณอาจจำเป็นต้องขยายรูปภาพเพื่อจุดประสงค์บางประการ บทความนี้จะแนะนำวิธีการขยายรูปภาพเมื่อคลิกบนรูปภาพใน Excel และการคืนค่าเป็นขนาดเดิมด้วยการคลิกครั้งที่สอง

ขยายภาพเมื่อคลิกด้วยรหัส VBA

ขยายภาพเมื่อคลิกด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยให้คุณขยายภาพได้เมื่อคลิกใน Excel กรุณาดำเนินการดังนี้

1. คลิกขวาที่รูปภาพที่คุณต้องการขยายโดยเพียงแค่คลิกที่รูปภาพจากนั้นคลิก กำหนดมาโคร จากเมนูบริบท ดูภาพหน้าจอ:

2 ใน กำหนดมาโคร โปรดคลิกที่ไฟล์ ใหม่ ปุ่ม

3. ในการโผล่ขึ้นมา Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัส VBA ด้านล่างระหว่างไฟล์ ต และ ย่อยสิ้นสุด รหัส ดูภาพหน้าจอ:

รหัส VBA: ขยายภาพโดยคลิกที่ภาพใน Excel

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3   
    small = 1 
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
    
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

หมายเหตุ: ในโค้ดคุณสามารถกำหนดขนาดใหญ่ของรูปภาพในโค้ด big = 3

4 จากนั้นกดปุ่ม อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

จากนี้ไป เมื่อคลิกที่รูปภาพ ภาพจะขยายใหญ่ขึ้นเป็นขนาดที่คุณกำหนดไว้ และเมื่อคลิกอีกครั้ง ภาพจะกลับไปเป็นขนาดเดิม ดังที่แสดงในภาพหน้าจอด้านล่าง

บทความที่เกี่ยวข้อง:

• วิธีล็อครูปภาพ / รูปภาพไปยังหรือภายในเซลล์ใน Excel
• วิธีแทรกรูปภาพหรือรูปภาพแบบไดนามิกในเซลล์ตามค่าของเซลล์ใน Excel