Distribute cells in a PUBLISHER 2013 table

I have a table in a MS Publisher 2013 document and I want to distribute the cells evenly across the table. This is easy to do in MS Word right from the ribbon. But I can't figure out how to do this in MS Publisher. Is there a way to do it?
Lev SeltzerAsked:
Who is Participating?
 
Lev SeltzerConnect With a Mentor Author Commented:
Thank you for your suggestion. The macro did not work, and I did not want to debug it for my particular situation.

In the end, I discovered that control plus shift would allow me to move the border between two cells without affecting the entire table. While I could not make the cells exactly the same size using this method, I was able to get it close enough.
0
 
GrahamSkanRetiredCommented:
I can't find such a built-in function in Publisher 2007.

In case you get no better answer, hers is a VBA macro that will do it for the first table on the first page of the current document:
Sub DistributeColumns()
    Dim shp As Shape
    Dim col As Column
    Dim TableWidth As Single

    Set shp = ActiveDocument.Pages(1).Shapes(1)
    For Each col In shp.Table.Columns
        TableWidth = TableWidth + col.Width
    Next col
        
    For Each col In shp.Table.Columns
        col.Width = TableWidth / shp.Table.Columns.Count
    Next col
End Sub

Open in new window

0
 
Lev SeltzerAuthor Commented:
The one other answer did not work. I found a different solution at a different source
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.