[VBA] Positioning Chart in Powerpoint after copy pasting from Excel

sanfrandear

New Member
Joined
Aug 20, 2019
Messages
4
Hi, I'm not sure how to refer to a picture of a chart that was copied from excel and pasted into powerpoint. The macro copies 4 charts in total and pastes them into one slide. I looked at the selection panel and they are named Picture 1, Picture 2, Picture 3 and Picture 4. I tried referring to last pasted picture as an activeshape, but it doesn't work.

Code:
oCHT1.CopyPicture   'ActiveChart.ChartArea.Copy
   activeSlide.Shapes.Paste
   
   With activeshape
    .Height = 28.35 * 5 ' resize
    .Width = 28.35 * 11  ' resize
    .Top = 28.35 * 0.75    ' reposition
    .Left = 28.35 * 5.2   ' reposition
    End With
 

Some videos you may like

Excel Facts

Wildcard in VLOOKUP
Use =VLOOKUP("Apple*" to find apple, Apple, or applesauce

Domenic

MrExcel MVP
Joined
Mar 10, 2004
Messages
19,139
To refer to the last pasted picture, try...

Code:
    With activeSlide
        With .Shapes(.Shapes.Count)
            .Height = 28.35 * 5 ' resize
            .Width = 28.35 * 11  ' resize
            .Top = 28.35 * 0.75    ' reposition
            .Left = 28.35 * 5.2   ' reposition
        End With
    End With
Hope this helps!
 

Watch MrExcel Video

Forum statistics

Threads
1,095,708
Messages
5,446,085
Members
405,379
Latest member
EDGOUG

This Week's Hot Topics

Top