ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/
กรณีกำหนดด้วยมือให้คลิกขวาที่รูป > Format Picture > เลือก Properties > ตรง Object positioning เลือก Move and size with cells หากจะเขียนด้วย Code สามารถบันทึก Macro การกำหนดค่าตามข้างต้นแล้วนำ Code มาปรับใช้ดู ติดตรงไหนค่อยถามกันต่อครับ ขอบคุณครับอาจารย์ มีเงื่อนไขใดในการ Copy บ้างครับCode: Select all
Sheets("Sheet1").Cells.Copy Sheets("Sheet2").CellsCode: Select all
Dim pic As Shape, rng As Range
Dim x As Double, y As Double
Range("A1").MergeArea.Select
For Each pic In ActiveSheet.Shapes
' If pic.Type = msoPicture Then
If InStr(pic.Name, "Pic") Then
x = pic.Height
y = pic.Left
pic.Copy
With Sheets("Sheet2")
.Select
.Range(pic.TopLeftCell.Address).Select
.Paste
With Selection
.Height = x
.Left = y
.Placement = xlMoveAndSize
End With
End With
End If
Next pic