How to insert column in powerpoint using VBA -

the questions bit tricky one, have googled , got link http://joelblogs.co.uk/2010/08/13/automatically-create-summary-slides-in-powerpoint-2010/ vba code helps me insert summary of titles of other slides of 1 presentation in single parent slide. code working fine, when number of slides titles more 30 or 50 table of content parent slide cannot hold entire title names names hidden , go beyond slide presentation. hence, confirm there vba code distribute contents of summary names in 3 columns through vba in table of contents slide ?

based on link have example need add code @ , of macro:

with summary.shapes(2).textframe2     .column.number = 3 end 

which set 3 columns in summary text frame. remember, need set font size, too, keep text within text box.

additional information: see font size changes (decrease) long put more text summary shape (shapes(2) in example). trace font size check if should increase number of columns. here example:

with summary.shapes(2).textframe2     if .textrange.font.size < 20         'additionally check here if max approved column numbers not exceeded.         .column.number = .column.number + 1     end if end 

and here full basic test code (which run new empty presentation):

sub test_loop()     dim summary slide     set summary = activepresentation.slides.add(1, pplayouttext)      dim entertext string     entertext = inputbox("additional text insert shape:")  summary.shapes(2).textframe2     .textrange.text = .textrange.text & chr(10) & entertext     if .textrange.font.size < 20         .column.number = .column.number + 1     end if end  loop while entertext <> "" end sub