Results 1 to 3 of 3
  1. #1
    2 Star Lounger
    Join Date
    Feb 2001
    Posts
    195
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Resizing a shape to make a pie chart (XP) (XP)

    who knows how to change the size of a shape to simulate a pie chart?
    See the file attached (is an Excel one as we can attach a ppt file) and click one part of the pie chart, now you can modify the shape using the 2 yellow handle. How to have this shape?
    Attached Files Attached Files

  2. #2
    Bronze Lounger
    Join Date
    Jun 2001
    Location
    New York, New York, Lebanon
    Posts
    1,449
    Thanks
    1
    Thanked 1 Time in 1 Post

    Re: Resizing a shape to make a pie chart (XP) (XP)

    mbila

    Can you use any of these?

    With ActiveSheet.Shapes("<font color=red> ShapeName </font color=red>")
    .IncrementLeft x
    .IncrementTop y
    .IncrementRotation z
    End With


    Wassim
    <img src=/S/compute.gif border=0 alt=compute width=40 height=20> in the <img src=/S/bagged.gif border=0 alt=bagged width=22 height=22>

  3. #3
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts

    Re: Resizing a shape to make a pie chart (XP) (XP)

    If your shape is the one I think it is then the following code will work...

    <pre>
    Const MyFilename = _
    "C:Program FilesCommon FilesMicrosoft SharedClipartautoshapBD18235_.WMF"

    Set MyShape = Worksheets(1).Shapes.AddPicture(MyFilename, True, True, 100, 100, 70, 70)

    With MyShape
    .Adjustments.Item(1) = 30 ' Angle of start handle
    .Adjustments.Item(2) = 120 ' Angle of end handle
    .Rotation = 0#
    End With

    </pre>



    StuartR

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •