Overlapping in Paste

[Sharkie21]

So far I got all my chart objects to copy and paste into word. However when I paste into word it just paste one ontop of the other. I want it to paste one after the other, but it doens't work

This is my code:

Public Sub ExportExcelGraph(wdObj As Word.Application, wdDoc As Word.Document)

Dim PC As ChartObject
Dim Wsht As Worksheet
On Error GoTo ErrHandler
For Each Wsht In ThisWorkbook.Worksheets
For Each PC In Wsht.ChartObjects
    PC.Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.Copy
    wdObj.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdOneAfterAnother, DisplayAsIcon:=False
Next PC
Next Wsht

ErrHandler:
    Resume Next
End Sub

 

[Sharkie21]

bump! I still can't figure this out.

 

[Norie]

What you probably need to do is record a macro in Word when you move the charts to the desired position.

You should then be able to use that in your existing code.

 

[Sharkie21]

I'm using word 2000. When I do a paste special since I don't want the link the only other option is a metafile. I wouldn't mind writing a macros in word to do the spacing, but these don't seem to act like an ordinary picture. I can't put my cursor after it and it doesn't add a new page when room runs out. Why is that happening?

 

[Norie]

I really have no idea.

In the past I've had nightmares with using charts/pictures in Word, even without usingg code.

 

[Sharkie21]

What I found out was if I copy multiple charts it'll add it to my clip board. And if I go to word and paste all, it's perfect. However, my clipboard will run out of room. Anyway to clear the clipboard with code and make it paste all with code?

According to the code to paste all it just does: selection.paste a bunch of times.

However, when I call this from word wdObj.selection.paste. It goes slow and keeps pasting the same chart over and over again even though there's 12 on the clipboard.

 

[Sharkie21]

bump. Hopefully someone will eventually answer this.

 

[TrippyTom]

1) Right click each picture
2) Choose Format Picture
3) Click the Layout tab
4) Make sure this is set to "In line with text"

This will allow you to position them one after another. Is that what you needed?

 

[Sharkie21]

That seems to work! However when I try to do it through a macro it grey's out the option WHY!!!!

 

[Sharkie21]

OMG It works!!!!!!

I needed this line.

wdObj.Selection.ShapeRange.ConvertToInlineShape

Thank you Norie and TrippyTom!!!