collects selected fields in status bar Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Option Explicit
Public bColored As Integer

Sub ColoredToBW()
    Dim cht As Chart
    Dim chtSC As SeriesCollection
    Dim x As Integer
    Dim iSeriesCount As Integer
    Dim iColors(1 To 5, 0 To 1) As Integer
    Dim iColor As Integer

'Set colors for BW series
    iColors(1, 0) = 1 'Black
    iColors(2, 0) = 56 'Gray-80%
    iColors(3, 0) = 16 'Gray-50%
    iColors(4, 0) = 48 'Gray-40%
    iColors(5, 0) = 15 'Gray-25%

'Set colors for Color series
    iColors(1, 1) = 55 'Indigo
    iColors(2, 1) = 7 'pink
    iColors(3, 1) = 6 'yellow
    iColors(4, 1) = 8 'Turquoise
    iColors(5, 1) = 13 'Violet

'Toggle Color/BW change 0 to 1 or 1 to 0
    bColored = 1 - bColored

Set cht = ActiveChart

'check that a chart is selected
    If cht Is Nothing Then
        MsgBox ("Select a chart")
        Exit Sub
    End If

Set chtSC = cht.SeriesCollection

'Check for MIN of number of series or
    'colors and only do the minimum
    iSeriesCount = Application.WorksheetFunction.Min _
      (UBound(iColors), chtSC.Count)

For x = 1 To iSeriesCount
        'Define the color
        iColor = iColors(x, bColored)

'Set the LINE color
        chtSC(x).Border.ColorIndex = iColor

'Marker color
        With chtSC(x)
            .MarkerBackgroundColorIndex = xlNone
            .MarkerForegroundColorIndex = iColor
        End With
    Next x
End Sub

No	Macro Name
1	collects selected fields in status bar
2	excel operators hk
3	get total in status bar (collects selected with mouse)
4	CODES COLLECTING NUMBERS IN ACTIVE CELL
5	Opening internet explorer in Excel
6	active cell printing
7	printing and prompting
8	specify file path and extension list in detail
9	Finding the Number of Each Item in the List Using the VBA and Pivot Table
10	status bar macro with a message waiting
11	Calculate the duration of the mp3 file (type the file path and select that cell)
12	system report
13	fonts in word
14	Cells Colorful Flashes
15	background flashes
16	Background of cells "a1: m8" flashes
17	The background of cells a1: m8 flashes
18	Data between cells a1: af12 flashes
19	Data between cells a1: af12 flashes
20	flashing

Excel Free Macros (VBA)

Collects Selected Fields İn Status Bar

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords