![]() MsgBox "Finished applying borders to " & n & " tables. Columns.Count = 1 And oarray(i) = wdBorderVertical Then GoTo Skip 'Skip if only one column and wdBorderVertical Rows.Count = 1 And oarray(i) = wdBorderHorizontal Then GoTo Skip ![]() ![]() 'Skip if only one row and wdBorderHorizontal 'Define array with the borders to be changed 'Diagonal borders not included here MsgBox "The document contains no tables.", vbInformation, Title "to all tables in the active document." & vbCr & vbCr & _ Msg = "This command applies uniform table borders " & _ You can also apply a custom color using two different options: Eyedropper - use this option to choose the required color by clicking it in the spreadsheet. Title = "Apply Uniform Borders to All Tables" '= 'Change the values below to the desired style, width and color Unfortunately, you cannot customize table styles in PowerPoint in the same way as Microsoft Word. '= 'The macro applies uniform table borders to all tables in the active document '2: Adjusted to handle tables with only one row or column '1: Adjusted to always fix vertical borders in 1-row tables correctly 'Insert the desired values of oBorderStyle, oBorderWidth and oBorderColor '= 'YOU ARE NOT ALLOWED TO PUBLISH THE MACRO AS YOUR OWN, IN WHOLE OR IN PART. On the left, pick a Style for the line and Color per your preference. YOU ARE WELCOME TO USE THE MACRO BUT YOU MUST KEEP THE LINE ABOVE. When the Format Cells window opens, select the Border tab. '= 'Macro created 2007 by Lene Fredborg, DocTools - 'THIS MACRO IS COPYRIGHT. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |