How to add 2 labels in a chart using vba excel












0















I have created a chart using vba excel, then accidentally populate a graph that show the user and the counts which I prefer. But stupid of me I forgot to save, due to testing. Now I cant get the logic how to set it again. please help, thanks



Sample Data



Operator  Counts    Team
OPSHAF 123 A
OPSAJC 1245 B
OPSZAL 23 A
OPSJGY 162 C
OPSOSM 54 D


enter image description here



Sub CreateChart()

Dim rEmailRng As Range
Dim oEmailCht As Object
Dim cEmailCht As Chart

Dim coEmailCht As ChartObject
Dim iEmailRow As Integer
Dim sEmailSeries As Series
Dim scEmailSerCol As SeriesCollection

On Error Resume Next

Set wb = ThisWorkbook
Set wbsh2 = wb.Worksheets("Email")

Set coEmailCht = wbsh2.ChartObjects.Add(Range("E5").Left, Range("E5").Top, 500, 300)
coEmailCht = "Email Requests Processed" '& year

Set cEmailCht = coEmailCht.Chart

With cEmailCht
.HasLegend = False
.HasTitle = True
.Axes(xlValue).MinimumScale = 50
.Axes(xlValue).MaximumScale = 1500
.ChartTitle.Text = "Email Processed by Operator"

Set scEmailSerCol = .SeriesCollection
Set sEmailSeries = scEmailSerCol.NewSeries

With sEmailSeries
.Name = Range("A1").Offset(0, 1).Value
.XValues = Range(Range("A1").Offset(1, 0), Range("A1").End(xlDown))
.Values = Range(Range("A1").Offset(1, 1), Range("A1").Offset(1, 1).End(xlDown))
.ChartType = xl3DColumnClustered
End With

End With









share|improve this question





























    0















    I have created a chart using vba excel, then accidentally populate a graph that show the user and the counts which I prefer. But stupid of me I forgot to save, due to testing. Now I cant get the logic how to set it again. please help, thanks



    Sample Data



    Operator  Counts    Team
    OPSHAF 123 A
    OPSAJC 1245 B
    OPSZAL 23 A
    OPSJGY 162 C
    OPSOSM 54 D


    enter image description here



    Sub CreateChart()

    Dim rEmailRng As Range
    Dim oEmailCht As Object
    Dim cEmailCht As Chart

    Dim coEmailCht As ChartObject
    Dim iEmailRow As Integer
    Dim sEmailSeries As Series
    Dim scEmailSerCol As SeriesCollection

    On Error Resume Next

    Set wb = ThisWorkbook
    Set wbsh2 = wb.Worksheets("Email")

    Set coEmailCht = wbsh2.ChartObjects.Add(Range("E5").Left, Range("E5").Top, 500, 300)
    coEmailCht = "Email Requests Processed" '& year

    Set cEmailCht = coEmailCht.Chart

    With cEmailCht
    .HasLegend = False
    .HasTitle = True
    .Axes(xlValue).MinimumScale = 50
    .Axes(xlValue).MaximumScale = 1500
    .ChartTitle.Text = "Email Processed by Operator"

    Set scEmailSerCol = .SeriesCollection
    Set sEmailSeries = scEmailSerCol.NewSeries

    With sEmailSeries
    .Name = Range("A1").Offset(0, 1).Value
    .XValues = Range(Range("A1").Offset(1, 0), Range("A1").End(xlDown))
    .Values = Range(Range("A1").Offset(1, 1), Range("A1").Offset(1, 1).End(xlDown))
    .ChartType = xl3DColumnClustered
    End With

    End With









    share|improve this question



























      0












      0








      0








      I have created a chart using vba excel, then accidentally populate a graph that show the user and the counts which I prefer. But stupid of me I forgot to save, due to testing. Now I cant get the logic how to set it again. please help, thanks



      Sample Data



      Operator  Counts    Team
      OPSHAF 123 A
      OPSAJC 1245 B
      OPSZAL 23 A
      OPSJGY 162 C
      OPSOSM 54 D


      enter image description here



      Sub CreateChart()

      Dim rEmailRng As Range
      Dim oEmailCht As Object
      Dim cEmailCht As Chart

      Dim coEmailCht As ChartObject
      Dim iEmailRow As Integer
      Dim sEmailSeries As Series
      Dim scEmailSerCol As SeriesCollection

      On Error Resume Next

      Set wb = ThisWorkbook
      Set wbsh2 = wb.Worksheets("Email")

      Set coEmailCht = wbsh2.ChartObjects.Add(Range("E5").Left, Range("E5").Top, 500, 300)
      coEmailCht = "Email Requests Processed" '& year

      Set cEmailCht = coEmailCht.Chart

      With cEmailCht
      .HasLegend = False
      .HasTitle = True
      .Axes(xlValue).MinimumScale = 50
      .Axes(xlValue).MaximumScale = 1500
      .ChartTitle.Text = "Email Processed by Operator"

      Set scEmailSerCol = .SeriesCollection
      Set sEmailSeries = scEmailSerCol.NewSeries

      With sEmailSeries
      .Name = Range("A1").Offset(0, 1).Value
      .XValues = Range(Range("A1").Offset(1, 0), Range("A1").End(xlDown))
      .Values = Range(Range("A1").Offset(1, 1), Range("A1").Offset(1, 1).End(xlDown))
      .ChartType = xl3DColumnClustered
      End With

      End With









      share|improve this question
















      I have created a chart using vba excel, then accidentally populate a graph that show the user and the counts which I prefer. But stupid of me I forgot to save, due to testing. Now I cant get the logic how to set it again. please help, thanks



      Sample Data



      Operator  Counts    Team
      OPSHAF 123 A
      OPSAJC 1245 B
      OPSZAL 23 A
      OPSJGY 162 C
      OPSOSM 54 D


      enter image description here



      Sub CreateChart()

      Dim rEmailRng As Range
      Dim oEmailCht As Object
      Dim cEmailCht As Chart

      Dim coEmailCht As ChartObject
      Dim iEmailRow As Integer
      Dim sEmailSeries As Series
      Dim scEmailSerCol As SeriesCollection

      On Error Resume Next

      Set wb = ThisWorkbook
      Set wbsh2 = wb.Worksheets("Email")

      Set coEmailCht = wbsh2.ChartObjects.Add(Range("E5").Left, Range("E5").Top, 500, 300)
      coEmailCht = "Email Requests Processed" '& year

      Set cEmailCht = coEmailCht.Chart

      With cEmailCht
      .HasLegend = False
      .HasTitle = True
      .Axes(xlValue).MinimumScale = 50
      .Axes(xlValue).MaximumScale = 1500
      .ChartTitle.Text = "Email Processed by Operator"

      Set scEmailSerCol = .SeriesCollection
      Set sEmailSeries = scEmailSerCol.NewSeries

      With sEmailSeries
      .Name = Range("A1").Offset(0, 1).Value
      .XValues = Range(Range("A1").Offset(1, 0), Range("A1").End(xlDown))
      .Values = Range(Range("A1").Offset(1, 1), Range("A1").Offset(1, 1).End(xlDown))
      .ChartType = xl3DColumnClustered
      End With

      End With






      excel vba






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 14 '18 at 5:22









      Thilina Nakkawita

      9251228




      9251228










      asked Nov 14 '18 at 5:00









      yLannAhyLannAh

      13




      13
























          1 Answer
          1






          active

          oldest

          votes


















          0














          Welcome To SO. If Your Objective is that axis label contain Count along with Operator then simply try



          With sEmailSeries
          '
          .XValues = Range("A2:B" & Range("B2").End(xlDown).Row)


          if you want team name also then



          .XValues = Range("A2:C" & Range("C2").End(xlDown).Row)





          share|improve this answer


























          • Sorry for the late reply, thanks it works.

            – yLannAh
            Nov 20 '18 at 23:56













          Your Answer






          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "1"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: true,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: 10,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });














          draft saved

          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53293439%2fhow-to-add-2-labels-in-a-chart-using-vba-excel%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          0














          Welcome To SO. If Your Objective is that axis label contain Count along with Operator then simply try



          With sEmailSeries
          '
          .XValues = Range("A2:B" & Range("B2").End(xlDown).Row)


          if you want team name also then



          .XValues = Range("A2:C" & Range("C2").End(xlDown).Row)





          share|improve this answer


























          • Sorry for the late reply, thanks it works.

            – yLannAh
            Nov 20 '18 at 23:56


















          0














          Welcome To SO. If Your Objective is that axis label contain Count along with Operator then simply try



          With sEmailSeries
          '
          .XValues = Range("A2:B" & Range("B2").End(xlDown).Row)


          if you want team name also then



          .XValues = Range("A2:C" & Range("C2").End(xlDown).Row)





          share|improve this answer


























          • Sorry for the late reply, thanks it works.

            – yLannAh
            Nov 20 '18 at 23:56
















          0












          0








          0







          Welcome To SO. If Your Objective is that axis label contain Count along with Operator then simply try



          With sEmailSeries
          '
          .XValues = Range("A2:B" & Range("B2").End(xlDown).Row)


          if you want team name also then



          .XValues = Range("A2:C" & Range("C2").End(xlDown).Row)





          share|improve this answer















          Welcome To SO. If Your Objective is that axis label contain Count along with Operator then simply try



          With sEmailSeries
          '
          .XValues = Range("A2:B" & Range("B2").End(xlDown).Row)


          if you want team name also then



          .XValues = Range("A2:C" & Range("C2").End(xlDown).Row)






          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited Nov 14 '18 at 6:04

























          answered Nov 14 '18 at 5:56









          Ahmed AUAhmed AU

          88528




          88528













          • Sorry for the late reply, thanks it works.

            – yLannAh
            Nov 20 '18 at 23:56





















          • Sorry for the late reply, thanks it works.

            – yLannAh
            Nov 20 '18 at 23:56



















          Sorry for the late reply, thanks it works.

          – yLannAh
          Nov 20 '18 at 23:56







          Sorry for the late reply, thanks it works.

          – yLannAh
          Nov 20 '18 at 23:56




















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Stack Overflow!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53293439%2fhow-to-add-2-labels-in-a-chart-using-vba-excel%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Florida Star v. B. J. F.

          Danny Elfman

          Retrieve a Users Dashboard in Tumblr with R and TumblR. Oauth Issues