วิธีการขยายภาพเมื่อคลิกใน Excel
สมมติว่าคุณได้แทรกรายการรูปภาพลงในคอลัมน์และจับคู่ขนาดรูปภาพกับขนาดเซลล์ตามภาพด้านล่างที่แสดง เนื่องจากรูปภาพที่แทรกมีขนาดเล็กคุณอาจต้องขยายเพื่อวัตถุประสงค์บางประการ บทความนี้จะแสดงวิธีการขยายรูปภาพเมื่อคลิกใน Excel และกู้คืนเป็นขนาดดั้งเดิมด้วยการคลิกครั้งที่สอง
ขยายภาพเมื่อคลิกด้วยรหัส 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
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
