Cannot load image from the Windows Pictures folder into Excel file using vba -

-

i have vba macro add image excel file. main code add file this...

dim s shape  set s = application.activesheet.shapes.addpicture(strfilename, msofalse, msoctrue, lngleft, lngtop, -1, -1)  s     .height = 60     .locked = true end

lngleft , lngtop coordinates set earlier in code. target image file selected using application.filedialog(msofiledialogfilepicker)

strfilename filled using following code...

dim fd filedialog dim objfile variant  set fd = application.filedialog(msofiledialogfilepicker)  fd     .buttonname = "select"     .allowmultiselect = false     .title = "choose logo graphic ..."     .filters.add "images", "*.gif; *.jpg; *.png; *.jpeg", 1     .filterindex = 2     .initialview = msofiledialogviewdetails     .show  each objfile in .selecteditems     strfilename = dir(objfile, vbnormal) next objfile

problem: works on system , colleagues , random system. however, when our client, whom meant, uses it, cannot select image windows' pictures folder. can select other folder though. gets "run-time error '1004': specified file wasn't found."

all systems used in development, , testing windows 10 , client using windows 7. also, using office 2016 while using 2010.

can reason problem , workaround?

i found workaround seems job. problem piece of code

for each objfile in .selecteditems     strfilename = dir(objfile, vbnormal) next objfile

when added messagebox, found strfilename has file name (eg: myimage.jpg) without full path. doesn't seem affect functioning in office 2016 on windows 10. reason, either windows 7 or office 2010 cannot work it. so, changed way file path+file name string generated , works fine.

strfilename = .selecteditems(1)

Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5);
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:
Read more

Python Pig Latin Translator -

-
so have been working on @ codecademy.com while trying learn python. don't know if blind , can't see why won't work or what. here's code won't let me use. function print variable if had typed in , print "empty" if didn't type anything. print "welcome english pig latin translator!" original = raw_input("what's name?") if len(original) > 0 print original else print "empty" if len(original) > 0 else the above lines contains syntax errors. try: if len(original) > 0: else: note added colons, ( : ).
Read more