Left Position does not work

[ganeshpoojary05]

Dear All,

I need a help in positioning my PPT table to extremely left. The below code works fine, however I'm not able to position the range to extremely left in my slide. Request you to provide me the solution. Thanks in advance for your help.

Below is the code for your reference:


Option Explicit

Private PPT As powerpoint.Application
Private PPT_pres As powerpoint.presentation

Private Sub OpenPowerpoint()
Set PPT = New powerpoint.Application

PPT.Visible = True
Set PPT_pres = PPT.Presentations.Open(Filename:="C:\PPT Automation\PMS Presentation.pptx")
'PPT_pres.Slides(5).Select
Call CopyToPowerPoint
End Sub

Private Sub CopyToPowerPoint()
If PPT Is Nothing Then Exit Sub
If PPT_pres Is Nothing Then Exit Sub

Dim rng As Range
Dim mySlide As Object
Dim myShape As Object


Set mySlide = PPT_pres.Slides(5)

'Copy Range from Excel

Set rng = ThisWorkbook.Sheets("Slide 5").Range("B5:F12")

'Copy Excel Range
rng.Copy

'Paste to PowerPoint and position
PPT.WindowState = 2
mySlide.Shapes.PasteSpecial DataType:=8
Set myShape = mySlide.Shapes(mySlide.Shapes.Count)


'Set position:

myShape.Left = 5
myShape.Top = 0
myShape.Width = 350
myShape.Height = 150


'Clear The Clipboard
Application.CutCopyMode = False
Application.Wait (Now + TimeValue("00:00:01"))

End Sub

 

[shknbk2]

With the exception of changing the names of the pptx file and the sheet name so I can use my own test items, your code seems to work fine. Stepping through the code shows that the table is pasted first in the center of the slide and then it is moved to the top left and resized. What is yours doing that is not this? Or what different settings were you expecting?