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

Popular posts from this blog

python Tkinter Capturing keyboard events save as one single string -

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

javascript - Z-index in d3.js -