Office 365

[m_in_spain]

Hi again, I have had office 365 pro forced upon me by the mega corporation i work for, previously i had Office Pro 2016 and all in my garden was rosy! I have developed, with an extensive ammount of help from this forum, an excel book that compiles a full quotation, calculates costs, prints out the document in word, PDF's it all, then selects appropriate drawings and merges it all, shuts all programs down and opens a folder to display the files. Fantastic!
As part of that the excel selects certain pictures stored on one work sheet, and via indirect naming takes the correct picture for the size of project I am doing and inserts that into the word document at a bookmark.

That is, until I hit Office 365. From trawliing the internet it seems there is a problem with the office clipboard and pictures. I have tried with jpeg and png formats each time the result is the same. No picture is copied and pasted leaving my document with big blanks. In the office vlipboard view, where I had an icon of the picture i am copying, i now receive a message "no preview available" and if I ctrl+V after that, noting is pasted.

Has anyone else encountered this, and does anyone know a walkaround. My workaround to my company was get me land based excel, but apparantly that is not a corporate option!!

Any ideas appreciated

I am now a mere number so i must conform
Cheers

 

[Rijnsent]

Hi M,
care to share some code to see if someone here can reproduce it?
Thanks,
Koen

 

[m_in_spain]

Hi Yes, thanks, this is the bit that copies two of the pictures and inserts it into my word document, works like a dream when i use land based excel, but not with Office 365.

'copies the picture
  Application.ScreenUpdating = False
  Sheets("input").Select
  Range("AB106").Select
  Selection.Copy
 'end copy picture
'find pic bookmark, paste pic
Sheets("input").Select
        docWord.Bookmarks("qcoverpic").Select
        .Selection.Paste
        Application.CutCopyMode = False
'end paste,last line clears clipboard

'selects salesman
 Application.ScreenUpdating = False
  Sheets("input").Select
  Range("AD113").Select
  Selection.Copy
 'end copy picture
'find pic bookmark, paste pic
Sheets("input").Select
        docWord.Bookmarks("qsalessig").Select
        .Selection.Paste
        Application.CutCopyMode = False
'end paste,last line clears clipboard

 

[Rijnsent]

Hi there,
just ran a small test, this works for me in Office 365 (assuming a word document open):

Set Wb = ActiveWorkbook
Set ShtIn = Worksheets("input")
Set wrdApp = GetObject(, "Word.Application")
Set wrdDoc = wrdApp.activedocument

wrdDoc.bookmarks("qcoverpic").Select
ShtIn.Range("AB106").Copy
wrdApp.Selection.PasteSpecial Name = "OutputPicture", Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False

Hope that helps,
Koen

 

[m_in_spain]

You Sir, are a Genius.
Thank you so much.
I couldnt get an answer to this from MS answers!
This worked perfectly,
Again thank you