Verificar código de geração de objeto - Macro

[sffogaca]

Amigos, Bom dia.

Estou em um projeto onde pensei em criar objetos dinamicamente via Macro, porém não domino muito o código.

Gostaria de saber se é possível "verificar o código gerado" de um objeto manualmente.

Ex: criei manualmente um gráfico, existe algum "ver código fonte" que eu possa ver o código dele para ter um norte de como fazer a macro?

Algo neste sentido

1.   Set chart = ActiveDocument.ActiveSheet.CreateStraightTable
2.   chart.AddDimension "VENDEDOR"  ' você terá que fazer um "for" buscando todos as dimensões a exibir
3.   chart.AddExpression "SUM(VALOR)"

[Thiago_Justen_]

Sebastiao,

Pode fazer algo nessa linha: Create Custom Chart with Macro

[sffogaca]

Neste caso ele ja tem uma macro pronta, eu gostaria de ver o código gerado a partir de um objeto que criei manualmente

"Titulo, dimensão, expressão, tamanho, posição, etc"

[Thiago_Justen_]

Não entendi bem o que tu queres...você quer saber quais instruções são executadas pelo QlikView ao criar uma tabela? É isso?

Veja, não sei se conseguimos isso mas baseando-se no código desse exemplo você consegue entender o mecanismo:

sub CreateCustomChart

Set chart = ActiveDocument.GetSheetObject("CH09")

'clean dimensions from chart

Set vDimensions = chart.GetProperties.Dimensions

For i=0 to vDimensions.Count

chart.RemoveDimension 0

Next

'add dimensions

Set vDimensionsSelection = ActiveDocument.fields("Dimension").GetSelectedValues

For i=0 to vDimensionsSelection.Count - 1

chart.AddDimension vDimensionsSelection.Item(i).text

Next

'clean expressions from chart

Set vExpressions = chart.GetProperties.Expressions

For i=0 to vExpressions.Count - 1

chart.RemoveExpression 0

Next

'add expressions

Set vExpressionValues = ActiveDocument.fields("Expression").getPossibleValues

Set vExpressionSelection = ActiveDocument.fields("ExpressionName").GetSelectedValues

For i=0 to vExpressionValues.Count - 1

chart.AddExpression vExpressionValues.Item(i).Text

'rename the expression label

Set vProperties = chart.GetProperties

Set vExpressions = vProperties.Expressions

Set vExpressionItem = vExpressions.Item(i).Item(0).Data.ExpressionVisual

vExpressionItem.Label.v = vExpressionSelection.Item(i).Text

'fix expression number format

set vFormat = vExpressions.Item(i).Item(0).Data.ExpressionVisual.NumberPresentation

vFormat.Type = 11 'fixed decimal

vFormat.nDec = 0

vFormat.Fmt = "# ##0"

' np.Dec = "."

' np.Thou = " "

' np.UseThou = 1

chart.SetProperties vProperties

Next

'Clean up

Set chart = nothing

Set vDimensions = nothing

Set vDimensionsSelection = nothing

Set vExpressions = nothing

Set vExpressionValues = nothing

Set vExpressionSelection = nothing

Set vProperties = nothing

Set vExpressionItem = nothing

Set vFormat = nothing

End Sub

[sffogaca]

Não me expressei corretamente,
Olha só deixa te resumir meu projeto, eu trabalho com setores, cada setor tem seus inúmeros indicadores, em média 30.

Eu tenho que gerar todos os indicadores deste setor conforme o usuário marca ele no filtro

Então para criar um gráfico por exemplo pela macro será necessário passar todas as propriedades dele, EX:

Titulo, Dimensão, Expressão, Posição, Tamanho, ETC.

[Thiago_Justen_]

Isso não usa macro mas é algo simples que fiz pra tentar ajudar a um colega aqui:

Re: Criar Indicadores dinâmicos na Dimensão