Macro to Manipulate Data in a MS-Word Table
This is a request for a macro to run on Microsoft Word and to make some changes to a table and to the cells within the table. You will need experience in writing MS-Word macros and table management.
PowerPoint can export a Word document which contains images of the PPT slides in a table. The table is not in a useful format and needs to be changed by a Macro. This will be used for many presentations so the table may have between 5 and 100 slides.
Attached is a sample called Input [login to view URL] (with the table as produced by PowerPoint and containing 2 slides) and an Output [login to view URL] (showing what the table should look like after the macro has been run).
Please provide instructions on how to initiate the macro.
I will require access to the source code.
Note that the sample was prepared with MS-Word 2016 and a Windows PC - which is the target environment.
The macro needs to do the following:
1. Remove the first column of the table containing slide numbers
2. Remove the last column of the table containing lines (table now has only 1 column containing images)
3. Select the table and:
a. in Table Layout - change the height of all cells to 11.8cm and the width of all cells to 18 cm
b. in Home/Paragraph/Borders & Shading/Borders - set the surrounding and horizontal borders to colour – white and width - 6pt
c. in Home/Paragraph/Borders & Shading/Shading - set the Fill to ‘gold accent 4 lighter 80%’
4. Repetitively, for each cell in the table, starting at the top cell in the table:
a. Select the PPT object in the cell (the image is the only data in the cell)
c. Paste Special (back in the same location) as Picture (Enhanced Metafile)
d. Select the picture (it should remain selected after the paste)
e. Change the size of the picture in the cell - Picture Tools/Format/Size/Size/ - Scale - Height 175% (ensure that Lock Aspect ratio is ticked – it should be by default)
f. Format the picture by adding a shadow - Picture Tools/Format/Picture Styles/Picture Effects/Shadow - Choose the Outer preset ‘Offset diagonal bottom right’
g. Add some text - Move to right of picture and type ‘Enter’ followed by 2 spaces and ‘Notes:’
h. Move down to the next cell and repeat the changes to the cell - or terminate the macro if the bottom of the table is reached
15 freelancer đang chào giá trung bình $161 cho công việc này
I'm the author of this book (VBA and VB .NET): [login to view URL] I conduct lectures and laboratory classes with students in the course “VBA and VB .NET”