วิธีใส่รูปภาพใน excel ให้ขนาดพอดี อัตโนมัติ

#วิธีใส่รูปภาพในexcelให้ขนาดพอดีอัตโนมัติ #วิธีแทรกรูปภาพในexcelให้มีขนาดพอดีกับเซลล์โดยอัตโนมัติ #excel #microsoftexcel #ใส่รูปให้ได้พอดีในexcel #แทรกรูปอัตโนมัติในexcel
โค้ดโปรแกรม:
Dim sPicture As String, pic As Picture

sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "please select picture as you want")

If sPicture = "False" Then Exit Sub

Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With

Set pic = Nothing