How to insert and automatically resize image in Excel

ຄລິບນີ້ຈະມາແນະນຳ How to insert and automatically resize image in Excel ກໍ່ຄື ເອົາຮູບເຂົ້າ Excel ໃຫ້ມັນປັບຂະໜາດຕາມຂະໜາດຫ້ອງຕາຕະຕາງແບບອັດຕະໂນມັດ ໂດຍການນຳໃຊ້ VBA ຂຽນໂຄດ. ຫຼື copy ຈາກດ້ານລຸ່ມນີ້ໄປນຳໃຊ້ເລີຍ:
---------------------------------------------------------------------
Dim Picture As String, pic As Picture
Picture = Application.GetOpenFilename _
("Pictures(*.gif,*.jpg,*.bmp,*tif), *.gif,*.jpg,*.bmp,*tif", _
, "please select picture as you want")
If Picture = "False" Then Exit Sub
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
ຂໍຄົນລະ Like ຫຼື ຄົນລະຄອມເມັນແທນການຂອບໃຈແດ່ເດີ