I am trying to post a range from Excel into Powerpoint, i need to go to slide number 3 and then format the size of the range so that it fits nicely, but my code fails after i have gone down to the slide and try to select my range again (its called figur_nu)). I dont understand why, isnt the range i have posted into the powerpoint "set" as figur_nu ?


            ' Copy the range as a piicture
            Selection.CopyPicture Appearance:=xlScreen, _
                Format:=xlPicture
            ' Paste the range
            PPSlide.Shapes.Paste.Select
            Dim figur_nu As PowerPoint.ShapeRange
            'Set figur_nu = Active.Shape
            Set figur_nu = ppapp.ActiveWindow.Selection.ShapeRange
            ' Align the pasted range
            
            
            
            '*********************************************************************************
            '            Formats zize
            '*********************************************************************************

            Select Case i
                
                'Tabel 1 vælges
                Case 1
                    'denne funktion vælger side i powerpointen
                    
                    ppapp.ActiveWindow.LargeScroll Up:=.Slides.Count
                    ppapp.ActiveWindow.LargeScroll down:=3

                    figur_nu.Select
                    ppapp.ActiveWindow.Selection.ShapeRange.Left = 300
                    ppapp.ActiveWindow.Selection.ShapeRange.Top = 280
                    ppapp.ActiveWindow.Selection.ShapeRange.LockAspectRatio = msoTrue
                    ppapp.ActiveWindow.Selection.ShapeRange.Width = 210
                    
            End Select

Happy easter