vba - How To Make Selected Columns the Same Width in a PowerPoint Table? -


Is there any way to programmatically create a few columns of the same width in a PowerPoint table? It should be divided by the width of their arm, the number of columns, but I can not understand a way to do this.

I have answered this before, this reference can not be found. This code is essential to you, just make sure that you have selected the columns, which you want to distribute evenly

  Distribute the sub-selected columns (such as) as Dim Cell Selection Set = active window Select the dim fColumn as integer fColumn = 0 Dim lColumn integer as the dim column in the form of the width with the cell width, then type = then select PP selection. Typing the wordpress = MSOAB then set the table as dim TBB = TBL = .ShapeRange.Table Dim tblColumnCount as integer table tblColumnCount = tbl.Column.Count Colnum = 1 for tblColumnCount if tbl.Cell (1, colNum). Then select Column Width = columnsWidth + tbl.Cell (1, colNum). Parent.Columns (colnum) .Width if fColumn = 0 then fColumn = colNum if lColumn = ColNum closing if the next column column as the integer column ColumnCount = (lColumn - fColumn) + 1 column column as the integer column = column Wthth / Number for columnCount column = fColumn lColumn tbl Column (column index) .Width = columnWidth Next End if termination with expiration end  

Comments

Popular posts from this blog

sql - dynamically varied number of conditions in the 'where' statement using LINQ -

asp.net mvc - Dynamically Generated Ajax.BeginForm -

Debug on symbian -