How to paste a spreadsheet as a graphic and have it linked.

[SDKBRK]

I have a spreadsheet that I have copied and pasted as a graphic but I need it to be linked to its orginal worksheet. So when I update the spreadsheet it will automaticlly update the graphic.


The way I did the graphic is I held down the Shfit Key, highlighted the cells, click on edit, copy picture, click ok, Edit, Paste

How do I make it link?

Thanks.

 

[Steve Hartman]

Re: How to paste a spreadsheet as a graphic and have it link

What are yoou pasting it into? If it's Word, instead of paste use paste special. It will give you a list of options for the pasted format and you can chose to paste as a link.

 

[SDKBRK]

Re: How to paste a spreadsheet as a graphic and have it link

I'm pasting into another worksheet in the same file.

 

[kkknie]

Re: How to paste a spreadsheet as a graphic and have it link

Why not just copy it? It would basically be a duplicate of the first chart.

Backup. This will work if you are only changing the data, but if you ever change the chart, it will not be the same. You could just record the steps that you take to copy the chart once and then run that macro if you change it.

K

P.S. Steve: Love your tag-line.

 

[Tom Urtis]

Re: How to paste a spreadsheet as a graphic and have it link

This sounds like a perfect opportunity for an ActiveX spreadsheet control. You can get it off the ActiveX control toolbox and draw it on your sheet (or on a userform but it looks like you want to see it on your sheet interface).

This control is not too common, so if you don't see it, right click the "More controls" icon on the toolbox, and double-click "Microsoft Office Spreadsheet 11.0" (or 10.0 if you are using Excel2002). Then, use a worksheet change event in your sheet module to update the range you want...modify for source sheet name, target range and spreadsheet control name. Works fine for me when tested.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Dim rngSource As Range
Dim rngTarget As Object
Dim rng As Range
Set rngSource = Worksheets("Sheet2").Range("A1").CurrentRegion
Set rngTarget = Spreadsheet1.Cells.Range(rngSource.Address)
With Spreadsheet1
rngTarget.Value = rngSource.Value
End With
For Each rng In rngSource.Rows(1).Columns
rngTarget.Columns(rng.Column).ColumnWidth = rng.Width
Next rng
End Sub