In Excel, using VBA, How can I get a "snapshot" of a chart and paste it (without data) in another workbook?

Ask Question Forum:

Model Library:2025-02-08 Updated:A.I. model is online for auto reply question page

Show

ASK RECENT

In Excel, using VBA, How can I get a "snapshot" of a chart and paste it (without data) in another workbook?

Asked by cashonly

at 2024-08-02 05:14:32

Point:500 Replies:5 POST_ID:828664USER_ID:11548

Topic:

Microsoft Excel Spreadsheet Software;;

I have a chart in a workbook. What I would like to do, thru VBA, is take a "snapshot" of that chart and paste that snapshot in another workbook.

If I could do it by somehow getting the actual chart, without having to reference the original workbook, that would be great if it's not too complicated. If not, even grabbing an image of the chart would work. Any suggestions?

Author: cashonly replied at 2024-08-02 06:35:44

yahooooo,

I'm working with an existing chart, so I modified your code:

Sub CreateAndCopyChart()    Dim ws As Worksheet    Dim cht As Chart    Set ws = Workbooks(2).Worksheets("PistCnvLSIdxMomLo-1-SMRY")    Set cht = ws.ChartObjects(1).Chart    cht.ChartArea.Copy    Workbooks(3).Worksheets(2).Range("A2").PasteSpecial xlPasteValuesend sub

1:2:3:4:5:6:7:8:9:10:11:

Select All Code

This solution works best for my needs.

Thank you.

Expert: Rgonzo1971 replied at 2024-08-02 05:30:55

Hi

Or as a Picture

Sub Makro4()    ActiveChart.ChartArea.Copy    Range("A1").Activate    ActiveWorkbook.ActiveSheet.Pictures.Paste.SelectEnd Sub

1:2:3:4:5:6:

Select All Code

Regards

Expert: aikimark replied at 2024-08-02 05:25:34

In certain cases, you might also consider using the Excel camera object

Expert: duncanb7 replied at 2024-08-02 05:22:13

Label the Excel chart for Chart 1
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveSheet.ChartObjects("Chart 1").Copy

on other sheet
=====
range("A1").Paste

Accepted Solution

Expert: yahooooo replied at 2024-08-02 05:20:55

500 points EXCELLENT

Sub CreateAndCopyChart()Dim ws As WorksheetDim cht As ChartSet ws = ThisWorkbook.Worksheets("Graphs")Set cht = ws.Shapes.AddChart.ChartWith cht    .SetSourceData ws.Range("$B$21:$C$22")    .ChartType = xl3DPie    .ChartArea.CopyEnd Withws.Range("A2").PasteSpecial xlPasteValuescht.Parent.DeleteEnd Sub

1:2:3:4:5:6:7:8:9:10:11:12:13:14:

Select All Code

新聞財經娛樂♬資訊 News Economy

About Us|Service|Pricing

Stock Index全球即時指數期貨:

&nbps;

News即時新聞:↓

News即時新聞:↑

On Balance Volume (OBV):

Youtube Video♬ Sharing by members:↓

Youtube Video♬ Sharing by members:↑

Ask Question Forum:

In Excel, using VBA, How can I get a "snapshot" of a chart and paste it (without data) in another workbook?

Your Information

Members/Profolio