Add a Command in Macro

roee1983 — Fri, 06 Mar 2015 18:40:01 GMT

Hi all,

I would appreciate your help with adding a Command to a Macro I found in the Community.

I need to get the chart caption in Bold with Columns AutoFit .

Thanks from advance

Roee

sub test

'Set the path where the excel will be saved

filePath = "..Test.xlsx"

'Create the Excel spreadsheet

Set excelFile = CreateObject("Excel.Application")

excelFile.Visible = true

'Create the WorkBook

Set curWorkBook = excelFile.WorkBooks.Add

'Create the Sheet

'first chart object

Set curSheet = curWorkBook.WorkSheets(1)
curSheet.visible=True

'loop

chartArray = Array("1","2")

usedRows=0

For Each chart In chartArray

Set i = ActiveDocument.GetSheetObject(chart)

chartCaption = i.GetCaption.Name.v

curSheet.Cells(usedRows+1, 1)=chartCaption

i.CopyTableToClipboard true

curSheet.Cells(usedRows+3, 1).Select
'Selection.Font.Bold = True = chartCaption

curSheet.Paste

usedRows=curSheet.UsedRange.Rows.Count+3 '--->function to get the first unused row

Next

'loop end

excelFile.Visible = true

'Save the file and quit excel

curWorkBook.SaveAs filePath

curWorkBook.Close

excelFile.Quit

'Cleanup

Set curWorkBook = nothing

Set excelFile = nothing

end sub

topic Add a Command in Macro in QlikView

Add a Command in Macro