VBA Makro - procházení řádků a sloupců tabulky a vrácení hodnoty buňky

 Dim wsS As Worksheet, table As Range, c As Integer, l As Integer
    
    Set wsS = Sheets("t")
    Set table = wsS.Range("A1", Range("D11"))
    For l = 1 To table.Rows.Count
       c = 0
       For c = 1 To table.Rows(l).Columns.Count
       MsgBox table.Rows(l).Columns.Cells(c).Value
       Next
    Next

VBA Makro - nastavení stylů grafu na více grafů (aby byly stejné)

Jedná se o starou verzi Excelu, takže se tam používá Fill.ForeColor místo novější Format.Line.ForeColor.

Sub M_snb()

    Dim it As ChartObject, j As Integer

 For Each it In Sheet4.ChartObjects
     For j = 1 To it.Chart.SeriesCollection.Count
        it.Chart.SeriesCollection(j).Fill.ForeColor.ObjectThemeColor = j
        it.Chart.SeriesCollection(j).MarkerStyle = j \ 5
        it.Chart.SeriesCollection(j).MarkerSize = 3
        it.Chart.SeriesCollection(j).MarkerForegroundColor = j \ 5
     Next
   Next
End Sub

VBA Makro - extrakce stylů grafu

Tento skript pro MS Visual Basic v Excelu umožňuje vyextrahovat styly do listu "t". Nejprve se provede kontrola, zda byla vybrána oblast grafu. Pokud oblast grafu nebyla vybrána, tak se makro ukončí.

 Sub vyextrahuj_styly_grafu()
    Dim it As ChartObject, j As Integer, i As Integer, r As Integer, wsT As Worksheet
    
    Set wsT = Sheets("t")
    If TypeName(Selection) <> "ChartArea" Then
       MsgBox "Please select ChartArea, not" + TypeName(Selection)
    Exit Sub
    End If
    
    For j = 1 To ActiveChart.SeriesCollection.Count
        r = r + 1
        With ActiveChart.SeriesCollection(j)
            wsT.Cells(r, 1) = .Fill.ForeColor
            wsT.Cells(r, 2) = .MarkerStyle
            wsT.Cells(r, 3) = .MarkerSize
            wsT.Cells(r, 4) = .MarkerForegroundColor
        End With
    Next
End Sub