Thread: Excel VBA

    #1
  1. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jun 2013
    Posts
    42
    Rep Power
    2

    Excel VBA


    Hi!
    I am quite new at VBA in excel.. Or quite new in VBA overall!
    I need help with a Excel VBA macro that makes every graph in the sheet the same size and have them placed under each other in a row. I would also like to add something that changes the font size and also the font style!

    As said I am a true rookie at VBA, I am just trying to help a friend at work for this

    So if anyone could post the code for that it would be awesome!

    Truly thankful

    / C
  2. #2
  3. No Profile Picture
    Grumpier old Moderator
    Devshed Supreme Being (6500+ posts)

    Join Date
    Jun 2003
    Posts
    14,453
    Rep Power
    4539
    So if anyone could post the code for that it would be awesome!
    If you want someone to create the entire code for you, try our hire a programmer forum.

    If you have some problems with code you're written, ask questions about those problem(s), including all relevant information and code snips.
    ======
    Doug G
    ======
    Bartender to Rene Descartes "have another beer?" Descartes: "I think not" and he vanished.
    --Alfred Bester
  4. #3
  5. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jun 2013
    Posts
    42
    Rep Power
    2
    entire code, its like 2 or 3 sentences, but anyways, I solved it on my own. Thought I could spare some time that's all.
  6. #4

  7. Join Date
    Jul 2013
    Location
    Melbourne
    Posts
    39
    Rep Power
    0
    First add some work in Macros and ask if problems occurs. or you can also show your work here so that we can also learn something new.
  8. #5
  9. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jun 2013
    Posts
    42
    Rep Power
    2
    Originally Posted by PeterSullivan
    First add some work in Macros and ask if problems occurs. or you can also show your work here so that we can also learn something new.
    Solved it like this back then.
    Code:
    
    
     Sub ResizeChart()
        ' ChartObject är Chart's parent, använder aktiva
        With ActiveChart.Parent
            .Width = 375
            .Height = 225
        End With
    End Sub
    
    With Selection.Font
    .Name = " SEB Basic "
    .Size = 12
    End with

IMN logo majestic logo threadwatch logo seochat tools logo