Kram Kramer's questions

Execute o código a seguir para fins de teste.

    Public Sub Macro1()
    
    'Delete all charts
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(i).Type = msoChart Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i
    
    'Add a chart.
    With ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=400, Height:=200)
        .Name = "myChart"
    End With
    
    'Add a serie.
    With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
        .ChartType = xlLine
        .XValues = Array(10, 20, 30, 40, 50)
        .Values = Array(1, 2, 3, 4, 5)
    End With
    
    'Apply a new chart style template
    ActiveSheet.ChartObjects("myChart").Chart.ClearToMatchStyle
    ActiveSheet.ChartObjects("myChart").Chart.ChartStyle = 233
    
    End Sub

Quero extrair todas as propriedades do gráfico acima.

O link a seguir fornece uma boa resposta, mas não sei como usar a janela VBE Locals .

Como listar propriedades de um objeto gráfico no VBA?

Execute o código a seguir.

Sub Macro1()

'Delete all shapes
For i = ActiveSheet.Shapes.Count To 1 Step -1
    ActiveSheet.Shapes(i).Delete
Next i

'Add rectangle
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left:=50, Width:=100, Top:=50, Height:=40)
    .TextFrame2.MarginLeft = 0
    .TextFrame2.MarginRight = 0
    .TextFrame2.MarginTop = 0
    .TextFrame2.MarginBottom = 0
    .TextFrame2.VerticalAnchor = msoAnchorMiddle
    .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
    .TextFrame2.TextRange.Font.Size = 30
    .TextFrame2.AutoSize = msoAutoSizeTextToFitShape
    .TextFrame2.TextRange.Characters.Text = "Stackoverflow"
End With

End Sub

A imagem a seguir mostra minha pergunta.

desde já, obrigado

O código a seguir funciona perfeitamente.

Public Sub Macro1()

'Enter Today's date into A1 and A2 cells.
ActiveSheet.Range("A1").Value = Now()
ActiveSheet.Range("A2").Value = Now()

'Delete all charts
For i = ActiveSheet.Shapes.Count To 1 Step -1
    If ActiveSheet.Shapes(i).Type = msoChart Then
        ActiveSheet.Shapes(i).Delete
    End If
Next i

'Add a chart.
With ActiveSheet.ChartObjects.Add(Left:=100, Top:=50, Width:=400, Height:=200)
    .Name = "myChart"
    .Chart.Axes(xlCategory).CategoryType = xlTimeScale
    .Chart.Axes(xlCategory).TickLabels.NumberFormat = "MMM/YY"
End With

'Add a xlLine serie.
With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
    .ChartType = xlLine
    .Name = "Example"
    .Values = Array(100, 200, 300, 400, 500, 600)
    .XValues = Array(45658, 45689, 45717, 45748, 45778, 45809)
End With

'Add a xlXYScatterLinesNoMarkers serie.
With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
    .ChartType = xlXYScatterLinesNoMarkers
    .Name = "My Birthday"
    .Values = Array(0, 800)
    .XValues = ActiveSheet.Range("A1:A2")
    'Points settings
    .Points(1).ApplyDataLabels
    .Points(1).DataLabel.ShowSeriesName = True
    .Points(1).DataLabel.ShowCategoryName = False
    .Points(1).DataLabel.ShowValue = False
    .Points(1).DataLabel.Position = xlLabelPositionAbove
    .Points(1).DataLabel.Orientation = xlUpward
    .Points(1).DataLabel.Width = 200
    .Points(1).DataLabel.Format.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
End With

End Sub

Não quero extrair dados do gráfico de células do Excel.

Então eu tentei substituir isso

.XValues = ActiveSheet.Range("A1:A2")

com isso

.XValues = Array(Now(), Now())

Mas desta vez a saída do gráfico está corrompida.

Como posso resolver esse problema?

Execute o código a seguir.

    Public Sub Macro1()
    
    'Delete all charts
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(i).Type = msoChart Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i
    
    'Add a chart.
    With ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=400, Height:=200)
        .Name = "myChart"
    End With
    
    'Add a serie.
    With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
        .ChartType = xlLine
        .XValues = Array(45658, 45689, 45717, 45748, 45778, 45809)
        .Values = Array(1, 2, 3, 4, 5, 6)
    End With
    
    'Format the xlCategory 
    With ActiveSheet.ChartObjects("myChart").Chart.Axes(xlCategory)
        .CategoryType = xlTimeScale
        .TickLabels.NumberFormat = "MMM/YY"
    End With
    
    End Sub

Como colocar nomes de meses em letras maiúsculas nos eixos Y do gráfico via VBA?

A imagem a seguir mostra a saída desejada.

https://prnt.sc/g2dXINXpMV97

O vídeo a seguir mostra como tornar a imagem transparente.

https://www.youtube.com/watch?v=9RpIELN3lyI

Estou procurando códigos VBA que deixem a imagem com 60% de transparência.

A gravação de macro não funciona.

A primeira resposta do link a seguir não ajuda porque não quero adicionar um retângulo extra (formato) para manter meus códigos simples.

A segunda resposta do link a seguir não ajuda porque torna apenas 100% transparente. Eu quero 60% de transparência. Ela se aplica somente a bitmaps.

Definir transparência de imagem com VBA no Excel

1) Copie os seguintes valores e cole nas células A1:E9 da planilha do Excel.

2) Observe a imagem a seguir.

3) A explicação do meu problema está aqui:

A fórmula na coluna D classifica a coluna B em primeiro lugar e depois a coluna C em segundo.

A fórmula na coluna D classifica duplicatas.

O número 4 não existe na coluna D porque os valores para Erin e Frank são iguais.

A fórmula na coluna E classifica apenas a coluna B.

A fórmula na coluna E não classifica duplicatas.

O número 4 existe na coluna E porque a fórmula na coluna E não classifica duplicatas.

Prefiro usar a fórmula na coluna E porque a fórmula na coluna E não classifica duplicatas.

4) Minha pergunta é:

Por favor, melhore a fórmula na coluna E , que deveria classificar a coluna B primeiro e depois a coluna C.

1) Copie os seguintes valores e cole nas células A1:C8 da planilha do Excel.

2) A imagem a seguir mostra que a fórmula Rank fornece resultados incorretos

3) A fórmula RANK dá resultado errado porque 500 existe na coluna A duas vezes.

4) Você conhece uma fórmula alternativa à fórmula RANK ?

5) Atualização: A solução desejada foi encontrada graças a Mayukh Bhattacharya, como segue.

SUMPRODUCT((A2<=$A$2:$A$8)/COUNTIF($A$2:$A$8;$A$2:$A$8))