Insert embedded image in Excel VBA -
i have following code inserting images in excel, when sent file users out of network, not able see pictures. there way modify code, not link, embedded image? here code:
private sub worksheet_change(byval target range) if (target.count > 1) or (split(target.address, "$")(1) <> "a") exit sub dim c range dim mypath string mypath = "p:\" application.screenupdating = false each c in target.cells if not dir(mypath & "*" & c.text & "*") = "" insertpicture mypath & dir(mypath & "*" & c.text & "*"), c.offset(0, 1) end if next c application.screenupdating = true end sub sub insertpicture(thepath string, therange range) thisworkbook.activesheet.pictures.insert(thepath) .shaperange .lockaspectratio = msotrue .width = therange.width .height = therange.height end .left = therange.left .top = therange.top .placement = 1 .printobject = true end end sub
thank you!
Comments
Post a Comment