我有一个VBA宏，它从Excel工作表中获取单元格并将它们粘贴到打开的PowerPoint演示文稿中的幻灯片中，然后调整它们的大小。这在循环中多次完成，但粘贴的内容是：
'Copy Range from Excel
Set CopyRange = ThisWorkSheet.Range(Cells(TopRow, 1), Cells(BotRow, 8))
CopyRange.Copy
'get the slide
Set mySlide = myPresentation.Slides(areas(r).SlideNumber)
mySlide.Select
'Paste
PPApp.CommandBars.ExecuteMso ("PasteSourceFormatting")
PPApp.CommandBars.ReleaseFocus
'sit and wait for changes to be made
For k = 1 To 1000
DoEvents
Next k
'now that the tableis pasted, format it before moving on
'should be selected after paste
PPApp.ActiveWindow.Selection.ShapeRange.Left = 43
PPApp.ActiveWindow.Selection.ShapeRange.Top = 103
PPApp.ActiveWindow.Selection.ShapeRange.Width = 651
PPApp.ActiveWindow.Selection.ShapeRange.Height = 419
在此之后，我需要将细胞边缘改为狭窄。通常，这是在“布局”，“对齐”，“单元格边距”下的功能区的“表格工具”部分中完成的。
是否可以通过添加到我的VBA代码来进行此更改？
由于