나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 jt (jtdotkim)

추천:  2
파일:     조회:  3773
제목:   차트 크기를 일정하게 만들 수 있을까요?
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>
엑셀에서 생성된 차트의 크기를 일정하게 만들고 싶은데요, 
예를 들어, 가로의 크기는 15cm 세로의 크기는 8cm ... 이런 식으로 말이죠.
매크로를 사용해보니까 차트의 크기를 '정해주는 것'이 아니고 
그만큼 '늘려주는 것'으로 되더라구요.. (무슨말이야 $.$)
=================================================================================
    ActiveSheet.Shapes("Chart 4").IncrementLeft -488.25
    ActiveSheet.Shapes("Chart 4").IncrementTop -22.5
    ActiveSheet.Shapes("Chart 4").ScaleWidth 2.11, msoFalse, msoScaleFromTopLeft
    ActiveSheet.Shapes("Chart 4").ScaleHeight 2.77, msoFalse, msoScaleFromTopLeft
    ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
==================================================================================
이런 식으로 말이죠..  
도와주시기 바랍니다. HELP~~~~~ 		　
[불량 게시물 신고]  
작은오리ScaleHeight 메서드 예제

다음은 myDocument에 있는 모든 그림과 OLE 개체의 크기를 원래 높이와 너비의 175%로 조정한 다음, 다른 모든 도형의 크기를 현재 높이와 너비의 175%로 설정하는 예제입니다.

Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
    Select Case s.Type
    Case msoEmbeddedOLEObject, _
            msoLinkedOLEObject, _
            msoOLEControlObject, _
            msoLinkedPicture, msoPicture
        s.ScaleHeight 1.75, True
        s.ScaleWidth 1.75, True
    Case Else
        s.ScaleHeight 1.75, False
        s.ScaleWidth 1.75, False
    End Select
Next

위 메서드를 적용해 보십시오.
모쪼록....		07-02 (14:15)
ⓧ삭제 ■신고
황기성안녕하세요? 작은오리 님!

멋진 답변이시지만...질문하신 분의 의도와는 조금 거리가 있는 듯 싶지요^^*

그럼...행운이 있으시길...!		07-02 (17:43)
ⓧ삭제 ■신고
작은오리저는 단지 위 코드를 적용하라고 한것이 아니고 위 메서드를 이용하여 챠트오브젝트에 적용시키면 일정 크기로 처음생성되는 시트내의 차트를 원하는 비율로 설정하면 된다는 의도 였슴돠~ ....  ㅠ,.ㅜ07-03 (09:22)
ⓧ삭제 ■신고
jt음..  답변 감사합니다. 근데,, 제가 잘 이해를 못하겠네욤...  어려워~~~07-03 (14:42)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-07-02(13:40)
최종수정일 : 2003-07-02(13:40)