vba - Apply a picture style to all pictures in a word document -

-

is there easy way pro-actively or retro-actively apply 'picture style' images stored in word document?

i want apply 'center shadow rectangle' picture style images add document without changing them 1 1.

the picture style concept exists @ ui level. apply image, have check properties of style in ui , apply them 1 one using vba:

sub formatpictures()      dim oinlineshape inlineshape     each oinlineshape in activedocument.inlineshapes         applypicturestyletoinlineshape oinlineshape     next      dim oshape shape     each shape in activedocument.shapes         applypicturestyletoshape oshape     next   end sub  sub applypicturestyletoinlineshape(shape inlineshape)      ' borders     shape.borders.enable = false      ' fill     shape.fill.visible = msofalse      ' line     shape.line.visible = msofalse      ' shadow     shape.shadow.style = msoshadowstyleoutershadow     shape.shadow.type = msoshadow21     shape.shadow.forecolor = wdcolor.wdcolorblack      shape.shadow.transparency = 0.3     shape.shadow.size = 100     shape.shadow.blur = 15     shape.shadow.offsetx = 0     shape.shadow.offsety = 0      ' reflection     shape.reflection.type = msoreflectiontypenone      ' glow     shape.glow.radius = 0     shape.softedge.radius = 0  end sub  sub applypicturestyletoshape(shape shape)      ' fill     shape.fill.visible = msofalse      ' line     shape.line.visible = msofalse      ' shadow     shape.shadow.style = msoshadowstyleoutershadow     shape.shadow.type = msoshadow21     shape.shadow.forecolor = wdcolor.wdcolorblack      shape.shadow.transparency = 0.3     shape.shadow.size = 100     shape.shadow.blur = 15     shape.shadow.offsetx = 0     shape.shadow.offsety = 0      ' reflection     shape.reflection.type = msoreflectiontypenone      ' glow     shape.glow.radius = 0     shape.softedge.radius = 0  end sub

Comments

Post a Comment

Popular posts from this blog

sql - invalid in the select list because it is not contained in either an aggregate function -

-
i can't figure out rewrite sql statement avoid error below msg 8120, level 16, state 1, line 26 column 'staffmember.staffmemberid' invalid in select list because not contained in either aggregate function or group clause. sql statment select (select [dbo].[udf_readstaffmemberbasic](sm.staffmemberid) xml path ('staffmembersummary'), root ('items'), type ), count(sm.staffmemberid) totalresults, ceiling(cast(count(sm.staffmemberid) decimal)/ @pagesize) totalpages staffmember sm inner join staffmembertoadditionalrole ar on sm.staffmemberid = ar.staffmemberid (sm.firstname '%' + @name + '%' or sm.surname '%' + @name + '%') , (@floorid null or sm.floorid = @floorid) , (@directorateid null or sm.directorateid = @directorateid) , (@additionalroleid null or ar.additionalroleid = @additionalroleid) order sm.staffmemberid offset @page * @pagesize rows fe...
Read more

Angularjs unit testing - ng-disabled not working when adding text to textarea -

-
i trying test angularjs component using karma, mocha, power-assert. have textarea , button in component, button disabled based on length of text in textarea. when run component in browser works perfectly. can't figure out how test functionality. here's bit of code. inquiryform.js function inquiryform($scope) { // plan add logic here } angular.module('myapp').component('inquiryform', { controller: inquiryform, controlleras: 'inquiryform', templateurl: 'inquiryform.html' }); inquiryform.html <div class="contact"> <div>thanks contacting us.</div> <form> <textarea ng-model="inquiryform.inquirytext" name=""></textarea> <input type="submit" value="send" ng-disabled="!inquiryform.inquirytext.length"> </form> </div> inquiryformtest.js describe('inquiry form ', () => { let $r...
Read more

How to start daemon on android by adb -

-
can me please, head swollen... i trying run daemon on android emu/device command: adb -s <device_name> shell su -c /dir/daemon <port_number> but nothink happens, , no errors! if do: adb -s <device> shell and form shell cmdline: su -c /dir/daemon <port_number> than work fine. try use shell-script , run: adb -s <device_name> shell sh su -c /dir/script.sh <port_number> and try generate script qt code port number , use: adb -s <device_name> shell sh su -c /dir/script.sh but not helped... problem if enter adb shell previous run daemon - work. problem on different device/emu/iso_image different command format not work. example: adb -s <device_name> shell su -c /dir/daemon <port_number> // work @ emu, not @ iso and vice: adb -s <device_name> shell su -c "/dir/daemon <port_number>" // work @ iso etc. everybody can answer what's matter? sorry english adb shell su -c ...
Read more