All I want to do is copy a range from Excel and then paste this range into PowerPoint.
When my range is manually copied from Excel to the clipboard... If I right click on a blank slide when pasting into PowerPoint, it gives me the option to paste "using destination styles".
This means that I can edit the resulting table. This is the result I want.
So far I have only found solutions which involve pasting in as a metafile.
If you have a solution please can you show me the full code including the dimensions as VBA in PowerPoint really isn't my cup of tea.
Thanks in advance for restoring my sanity!
Private Sub CommandButton2_Click() Dim newPowerPoint As PowerPoint.Application Dim activeSlide As PowerPoint.Slide Dim cht As Excel.ChartObject 'Look for existing instance On Error Resume Next Set newPowerPoint = GetObject(, "PowerPoint.Application") On Error GoTo 0 'Show the PowerPoint newPowerPoint.Visible = True newPowerPoint.ActiveWindow.View.GotoSlide newPowerPoint.ActivePresentation.Slides.count Set activeSlide = newPowerPoint.ActivePresentation.Slides(newPowerPoint.ActivePresentation.Slides.count) ActiveSheet.Range("d51:d57").Copy activeSlide.Shapes.PasteSpecial ppPasteEnhancedMetafile newPowerPoint.ActiveWindow.Selection.ShapeRange.Top = 165 newPowerPoint.ActiveWindow.Selection.ShapeRange.Left = 395 AppActivate ("Microsoft PowerPoint") Set activeSlide = Nothing Set newPowerPoint = Nothing End Sub