VBA for Excel 2007 tutorial-chart legend texture style


Chart legend texture style

After learn VBA code in this example, you will be able to display and format the legend of a chart with  textured style. To format a chart legend with textured style, you need to used the PresetTextured() method of the Fill property of Format object. This method has the following prototype:

Fill.Format.PresetTextured(PresetTexture)

-The value of PresetTexture argument can be msoPresetTextureBouquet, msoPresetTextureBrownMarble, msoPresetTextureCanvas, msoPresentTextureCork, msoPresetTextureDenim, etc.



VBA for Excel: VBA example code to format legend of the chart with canvas style

To run this VBA example code, you can copy and paste the VBA code below in to the block of Worksheet_Activate() procedure. To open this block, double-click the current worksheet, then in the objects dropdown list select Sheet1 and in events list select Activate.



VBA code for this example:


Option Explicit
Private Sub Worksheet_Activate()
   
    Dim i As Integer
    'Fill Source data
    For i = 1 To 10
        Randomize
         Range("A" & i) = Int(100 * Rnd) + 1
         Range("B" & i) = Int(100 * Rnd) + 1
    Next
 
    'Select the data source
    Range("A1:B10").Select
    'Create a clusted column chart
    ActiveSheet.Shapes.AddChart xl3DColumn, 10, 180
    ActiveSheet.Shapes(1).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$10"), PlotBy:=xlColumns
    'Make sure the lend is shown
    ActiveChart.HasLegend = True
    'Fill the chart legend with texture canvas style
    ActiveChart.Legend.Format.Fill.PresetTextured msoTextureCanvas
 
End Sub

Comments





This website intents to provide free and high quality tutorials, examples, exercises and solutions, questions and answers of programming and scripting languages:
C, C++, C#, Java, VB.NET, Python, VBA,PHP & Mysql, SQL, JSP, ASP.NET,HTML, CSS, JQuery, JavaScript and other applications such as MS Excel, MS Access, and MS Word. However, we don't guarantee all things of the web are accurate. If you find any error, please report it then we will take actions to correct it as soon as possible.