excel - More efficient way to write this script -

-

i printing lot of excel charts using vba. @ point have ~35 sheets print from, i'm wondering if there's script easier modify 1 working with.

sheets("euro graph").select activesheet.chartobjects("chart 1").activate activechart.plotarea.select activechart.pagesetup.rightheader = "nominal lcu" activechart.pagesetup.rightfooter = "&d  &t" activechart.pagesetup.centerfooter = "&a" activechart.pagesetup.leftfooter = "&z&f" selection.width = 921 selection.left = 23 selection.top = 61 selection.height = 550 activewindow.selectedsheets.printout copies:=1, collate:=true

so works fine. each chart want print first select sheet, , activate chart want print referring chart number. there efficient way change chart printing specs (like changing header/footer) without manually having change every block of code use each chart?

edit: remove lot lines , have

sheets("euro graph").select activesheet.chartobjects("chart 1").activate activechart.pagesetup.rightheader = "nominal lcu" activewindow.selectedsheets.printout copies:=1, collate:=true

but still able change "nominal lcu" , have affect code.

this tested, should show how loop through worksheets chartobjects, , how identify lcu chartobject:

sub setlcucharts() dim ws excel.worksheet dim chtobject excel.chartobject dim cht excel.chart  each ws in thisworkbook.worksheets     if ws.chartobjects.count > 0         each chtobject in ws.chartobjects             if instr(chtobject.name, "lcu") > 0                 set cht = ws.chartobjects(1).chart                 cht                     .pagesetup.rightheader = "nominal lcu"                     .printout copies:=1, collate:=true                 end             end if         next chtobject     end if next ws end sub

Comments

Post a Comment

Popular posts from this blog

c++ - Creating new partition disk winapi -

-
i'am trying create new partition , mount volume new, thought createfile let me this, code : lpctstr lpfilename=l"\\\\.\\device\\harddisk0\\partition3"; handle handl=createfile( lpfilename, generic_read | generic_write, file_share_read | file_share_write, null, create_always, file_attribute_normal, null ); if (handl==invalid_handle_value) { qdebug()<<"handl invalid"<<" error"<<getlasterror();} bool success = definedosdevice(ddd_raw_target_path,l"i:",l"\\device\\harddisk0\\partition3"); if(!success) qdebug()<<" definedosdevice failed "<<getlasterror(); bflag = getvolumenameforvolumemountpoint( l"i:\\", // input volume mount point or directory /** u in dir
Read more

Android Prevent Bluetooth Pairing Dialog -

-
i'm developing internal application uses bluetooth printing. want bluetooth pairing occur without user input. have managed working trapping android.bluetooth.device.action.pairing_request broadcast. in broadcast receiver call setpin method, , pairing works ok, bluetoothpairingdialog displayed second or two, disappears - see link below. https://github.com/android/platform_packages_apps_settings/blob/master/src/com/android/settings/bluetooth/bluetoothpairingdialog.java since broadcast non-ordered, can't call abortbroadcast() , , wondering if there other way prevent pairing dialog appearing. can hook window manager in way? i haven't been able come way without modifying sdk. if you're oem, it's easy (i'm on 4.3): in packages/apps/settings/androidmanifest.xml, comment intent filter pairing dialog: <activity android:name=".bluetooth.bluetoothpairingdialog" android:label="@string/bluetooth_pairing_request"
Read more

VBA function to include CDATA -

-
i have following function include cdata: function cdatasection() dim objdom domdocument dim objkmlrootelement ikmldomelement dim objkmlelement ikmldomelement dim cdata ikmldomcdatasection set objdom = new domdocument set objkmlrootelement = objdom.createelement("balloonstyle") objdom.appendchild objkmlrootelement set objkmlelement = objdom.createelement("text") objkmlrootelement.appendchild objkmlelement set cdata = objdom.createcdatasection("text") cdata.data = "<![cdata[<b>latitude = $[latitude]</b>?]]>;" end function when run above, getting error "user defined data type not found" function. yes ripster says find library reference. vba window tools>references for list of relevant references see... http://msdn.microsoft.com/en-us/library/windows/desktop/ms763701%28v=vs.85%29.aspx however, if have hard time tracking down reference, replace dim sta
Read more