Shumë e re në VBA. Ky është kodi që po përdor për të ngjitur në rrëshqitjen bosh të powerpoint-it (i cili ka funksionuar mirë), por kur më duhet të përditësoj të dhënat për muajt e ardhshëm, nuk jam i sigurt se si të fshij foton e vjetër përpara se të ngjitet fotografia e re... çdo ndihmë vlerësohet.
Sheets("Presentation").Select
Range("b53:w99").Select
Selection.CopyPicture Format:=xlPicture
With PptActvWin
.View.GotoSlide Index:=3
.View.PasteSpecial DataType:=ppPastePicture
pptApp.ActiveWindow.Selection.ShapeRange.Left = 2.5 * 72 * 0.393700787
pptApp.ActiveWindow.Selection.ShapeRange.Top = 2.5 * 72 * 0.393700787
pptApp.ActiveWindow.Selection.ShapeRange.ScaleHeight 0.45, msoTrue,
msoScaleFromTopLeft
pptApp.ActiveWindow.ViewType = ppViewNormal
End With