powerpoint - How do I export text from only certain shapes in ppt using VBA? -


i'm trying export text large ppt. have figured out how export text shapes , i'm interested in text.

is there way have if function checks formatting of shape , grabs text if if function true. want select text shapes dashed border. possible?

this code have

    sub exporttext()    dim opres presentation   dim oslides slides   dim osld slide         'slide object   dim oshp shape         'shape object   dim ifile integer      'file handle output   ifile = freefile          'get free file number   dim pathsep string   dim filenum integer    #if mac     pathsep = ":"   #else     pathsep = "\"   #end if    set opres = activepresentation   set oslides = opres.slides    filenum = freefile    'open output file   ' note:  errors here if file hasn't been saved   open opres.path & pathsep & "alltext.txt" output filenum    each osld in oslides    'loop thru each slide     each oshp in osld.shapes                'loop thru each shape on slide        'check see if shape has text frame , text       if oshp.hastextframe , oshp.textframe.hastext         if oshp.type = msoplaceholder             select case oshp.placeholderformat.type                 case = ppplaceholdertitle, ppplaceholdercentertitle                     print #ifile, "title:" & vbtab & oshp.textframe.textrange                 case = ppplaceholderbody                     print #ifile, "body:" & vbtab & oshp.textframe.textrange                 case = ppplaceholdersubtitle                     print #ifile, "subtitle:" & vbtab & oshp.textframe.textrange                 case else                     print #ifile, "other placeholder:" & vbtab & oshp.textframe.textrange             end select         else             print #ifile, vbtab & oshp.textframe.textrange         end if  ' msoplaceholder       end if    ' has text frame/has text      next oshp   next osld    'close output file   close #ifile  end sub

here goes solution you. please refer comments inside code further information.

sub partial_solution() '... code here  '... loops start here      'this way check dashstyle in interest,     'there lots of different dash styles of line     'then remove     debug.print oshp.line.dashstyle      'and way can check style before reading shape     'put result here, 5 msolinedashdot style     if oshp.line.dashstyle = 5          '... code here      end if  '... rest of code here end sub

Comments

Post a Comment

Popular posts from this blog

linux - Does gcc have any options to add version info in ELF binary file? -

i mean whether gcc can insert source code version infor elf binary section or similar. not want change source file, add info gcc option in makefile. you can emit version info text file, turn text file object file statically link executable. the first step simple have write code: script or write version info in format plain text file. write makefile rule produce version.o version.txt, using objcopy . you'll have object file 2 useful symbols defined in it: beginning , end of textual version info. add generated object executable, , you'll able access version 2 ways: running strings on binary, or writing code in application print version string (you'll need declare start , end symbols variables in header file).
Read more

javascript - Clean way to programmatically use CSS transitions from JS? -

as title implies, there proper way set initial css properties (or class) , tell browser transition these value? for example ( fiddle ): var el = document.queryselector('div'), st = el.style; st.opacity = 0; st.transition = 'opacity 2s'; st.opacity = 1; this not animate opacity of element in chrome 29/firefox 23. because ( source ): [...] you’ll find if apply both sets of properties, 1 after other, browser tries optimize property changes, ignoring initial properties , preventing transition. behind scenes, browsers batch property changes before painting which, while speeding rendering, can have adverse affects. the solution force redraw between applying 2 sets of properties. simple method of doing accessing dom element’s offsetheight property [...] in fact, hack work in current chrome/firefox versions. updated code ( fiddle - click run after opening fiddle run animation again): var el = document.queryselector('div'...
Read more

android - send complex objects as post php java -

is possible send contact numbers via post php class inside eclipse ? or post limited primitive types , have find work arounds send them string ? i propose: send them json in post request, befor start, have @ gson project , keep in mind set content application -> json. luck
Read more