Resizing a excel pasted object in powerpoint with vba -


i've cobbled vba script (i'm no expert, kind folks around here, i've been able , working) copy multiple excel sheets powerpoint file (used template, see code.

sub atestpptreport()  dim ppapp powerpoint.application dim ppslide powerpoint.slide dim pppres powerpoint.presentation set ppapp = createobject("powerpoint.application") dim slidenum integer dim ppshape powerpoint.shape  set xlapp = getobject(, "excel.application")  ''define input powerpoint template     dim strprespath string, strexcelfilepath string, strnewprespath string ''# change "strprespath" full path of powerpoint template     strprespath = "c:\template.ppt" ''# change "strnewprespath" want save new presentation created     strnewprespath = "c:\macro_output-" & format(date, "dd-mmm-yyyy") & ".ppt"     set pppres = ppapp.presentations.open(strprespath)     pppres.application.activate   ppapp.visible = true ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''define destination slide     slidenum = 1     pppres.slides(slidenum).select     set ppshape = pppres.slides(slidenum).shapes("slide1box")     set ppslide = pppres.slides(ppapp.activewindow.selection.sliderange.slideindex)  ''define source sheet     sheets("info1").activate 'copy/paste     xlapp.range("info1block").copy     ppslide.shapes.pastespecial datatype:=pppasteoleobject, link:=msofalse ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''define destination slide     slidenum = 2     pppres.slides(slidenum).select '    set ppshape = pppres.slides(slidenum).shapes("slide2box")     set ppslide = pppres.slides(ppapp.activewindow.selection.sliderange.slideindex)  ''define source sheet     sheets("info2").activate 'copy/paste     xlapp.range("info2block").copy     ppslide.shapes.pastespecial datatype:=pppasteoleobject, link:=msofalse ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' close presentation     pppres.saveas strnewprespath     'pppres.close     'quit powerpoint 'ppapp.quit '    msgbox "presentation created", vbokonly + vbinformation  ' clean set ppslide = nothing set pppres = nothing set ppapp = nothing end sub

my problem is: how resize/reposition object once it's been pasted?

the function "pastespecial" returns shape object, can use resize or reposition.

for example:

dim ppshape powerpoint.shape set ppshape = ppslide.shapes.pastespecial(datatype:=pppasteoleobject, link:=msofalse)

then can use shape object resize it. example:

ppshape.height = xyz ppshape.top = abc

etc etc.

hope helps. vikas b


Comments

Post a Comment

Popular posts from this blog

curl - PHP fsockopen help required -

i trying work on cloudflare api , have found in documentation. unfortunately have no idea how can use in fsockopen or through curl. here example of post request. need know how can make request below data post using curl or fsockopen curl https://www.cloudflare.com/api_json.html -d 'a=cache_lvl' \ -d 'tkn=8afbe6dea02407989af4dd4c97bb6e25' \ -d 'email=sample@example.com' \ -d 'z=example.com' \ -d 'v=agg' here link cloudflare https://www.cloudflare.com/docs/client-api.html#s4.2 try one: $ch = curl_init("https://www.cloudflare.com/api_json.html"); curl_setopt($ch, curlopt_returntransfer,1); curl_setopt($ch, curlopt_followlocation, 1); curl_setopt($ch, curlopt_ssl_verifypeer,false); // handling of -d curl parameter here. $param = array( 'a' => 'cache_lvl', 'tkn' => '8afbe6dea02407989af4dd4c97bb6e25', 'email' => 'sample@example.com', 'z' =...
Read more

HTTP/1.0 407 Proxy Authentication Required PHP -

i working in restricted network/limited access internet. since have use proxy make web service call. here php code calling web service , response . $client = new soapclient("http: //www.xyz.com/abc/wsdls/login.wsdl", array("trace" => 1, "exceptions" => 1, 'proxy_host' => $proxy_host, 'proxy_port' => $proxy_port, 'proxy_login' => $proxy_login, 'proxy_password' => $proxy_password)); response is fatal error: uncaught soapfault exception: [wsdl] soap-error: parsing wsdl: couldn't load ' http://www.xyz.com/abc/wsdls/login.wsdl ' : failed load external entity if copy url error message , paste in browser(with same proxy settings) works. 2nd scenario is, if pass values instead of variables giving me diffarant response $client = new soapclient("http: //www.xyz.com/abc/wsdls/login.wsdl", array("trace" => 1, "exceptions" => 1, 'proxy_host' ...
Read more

c# - Resource not found error -

i have problem accessing method on homecontroller. show code of method : [httpget] public actionresult decriptidentifiantetredirige(string login_crypter, string mdp_crypter) { string loginacrypter = _globalmanager.protegemotdepasse(login_crypter); string mdpacrypter = _globalmanager.protegemotdepasse(mdp_crypter); user userapp = new models.user(login_crypter, mdp_crypter); if (userapp.authentificationvalidee(userapp.userlogin, userapp.password)) { session["name"] = userapp.userlogin; return redirecttoaction("accueil", "home"); } else { return redirecttoaction("validerauthentification", "home"); } } then in routeconfig.cs wrote route : routes.maproute( name: "authentificationapresdecryptage", url: "{controller}/{action}/{login_crypter}/{mdp_crypter}", defaults: new...
Read more