topic Re: PasteSpecial Bitmap macro in QlikView

PasteSpecial Bitmap macro

Anonymous — Fri, 20 Apr 2012 13:39:55 GMT

Hi,

I am trying to paste a Clear image of my chart to excel,

I have a macro that does this but it comes out fuzzy.

this is a piece of the macro:

if (pasteMode = "image") then

Call objSource.CopyBitmapToClipboard()

else

Call objSource.CopyTableToClipboard(true) '// default & fallback

end if

Set objCurrentSheet = objExcelDoc.Sheets(sheetName)

objExcelDoc.Sheets(sheetName).Range(sheetRange).Select

objExcelDoc.Sheets(sheetName).PasteSpecial

Kind Regards

Abdur Razak

Re: PasteSpecial Bitmap macro

Mon, 03 Sep 2012 08:37:55 GMT

I am also trying to figure out if VBScript supports PasteSpecial in bitmap mode.

If anyone knows, please let me know.

Re: PasteSpecial Bitmap macro

Anonymous — Tue, 04 Sep 2012 12:24:13 GMT

Hi,

I think this works,

SUB SendExcel

set XLApp = CreateObject("Excel.Application") ' Define Object

XLApp.Visible = True 'Visible set as true

set XLDoc = XLApp.Workbooks.Add 'Open new workbook

Set obj = ActiveDocument.GetSheetObject("CH01")

obj.CopyBitmapToClipboard

XLDoc.Sheets(1).Range("B8").Select

XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap

End Sub

Kind Regards

Dreamer

Re: PasteSpecial Bitmap macro

Tue, 05 Mar 2013 06:56:22 GMT

great job;)

I was looking for This solution

Re: PasteSpecial Bitmap macro

Thu, 09 Oct 2014 11:10:17 GMT

Hi Dreamer

The wdPasteBitmap does work. However, if you are looking to PasteSpecial to improve the quality of your image, it did not seem to make a difference for me, Not as clear as a manual Paste Special -> as Bitmap.. in Excel.

The vb PasteSpecial using 'With' below, worked for me. I now have crystal clear images from Qlikview into Excel. Plus the resultant File Size is smaller with images pasted in this manner than what they are in the wdPasteBitmap method. Hope it helps.

SUB SendExcel

set XLApp = CreateObject("Excel.Application") ' Define Object

XLApp.Visible = True 'Visible set as true

set XLDoc = XLApp.Workbooks.Add 'Open new workbook

Set obj = ActiveDocument.GetSheetObject("CH01")

obj.CopyBitmapToClipboard()

XLDoc.Sheets(1).Range("B8").Select

With XLDoc.Sheets(1)

.Range("B8").PasteSpecial _

Operation=xlPasteSpecialOperationAdd

End With

End Sub

Re: PasteSpecial Bitmap macro

Thu, 09 Oct 2014 11:29:21 GMT

In your original statement it would look more like this:

Set objCurrentSheet = objExcelDoc.Sheets(sheetName)

objExcelDoc.Sheets(sheetName).Range(sheetRange).Select

if (pasteMode = "image") then

With objExcelDoc.Sheets(sheetName)

.Range(sheetRange).PasteSpecial _

Operation=xlPasteSpecialOperationAdd

End With

else

objExcelDoc.Sheets(sheetName).Paste

end if

Re: PasteSpecial Bitmap macro

Wed, 31 Dec 2014 08:14:21 GMT

Great!! 'PasteSpecial DataType=wdPasteBitmap' do me a great favor. Beautiful!