Mae'r cod hwn yn trin hyd yn oed cell llwybr nad yw'n ddelwedd fel llwybr delwedd ac yn cefnogi gwall na allai fewnforio enw ffeil " testun yn y gell honno"
Roedd hyn yn arfer gweithio ymhell cyn rhai dyddiau, unrhyw syniad?

Is-InsertPicFromFile()
Dim xRg Fel Ystod
Dim xCell Fel Ystod
Dim xVal Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
Gosod xRg = Application.InputBox ("Dewiswch gelloedd llwybr ffeil:"", "KuTools for Excel", Selection.Address, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Application.ScreenUpdating = Anghywir
Am Bob xCell Mewn xRg
xVal = xCell.Value
Os xVal <> "" Yna
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1). Chwith, xCell.Top, xCell.Height, _
xCell.Uchder
Gorffennwch Os
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End