OfficeTutor 365

Paste매개변수는 붙여넣기의 대상을 가리킵니다. 여기에선 값을 붙여넣을 것이므로 xlValue를 선택하였습니다. Operation은 위의 대화상자에서 [연산]에 해당하는 것입니다. 아무 연산이 없으므로 xlNone으로 합니다. SkipBlanks는 위의 대화상자에서 [내용있는 셀만 붙여넣기]에 해당합니다. Transpose는 설명 안드려도 아시겠죠~
     Application.CutCopyMode = False
CutCopyMode 프로퍼티는 Application개체의 것으로 잘라내기 상태인지 복사상태인지를 표시하는 것입니다. 사용자가 <Ctrl+C>키를 누르면 xlCopy값(1)을, <Ctrl+X>키를 누르면 xlCut값(2)을 가집니다. 믈론 아무 동작을 하지 않았다면 False값(0)을 돌려줍니다.
그런데 여기에 False값을 위의 코드처럼 대입하면 <Ctrl+C>키 또는 <Ctrl+X>키를 누를 때 표시되는 움직이는 점선(이것을 “이동 테두리”라고 합니다)이 사라지고 [붙여넣기] 기능도 사용할 수 없게 됩니다. 즉 아무 것도 하지 않은 상태로 됩니다.
End Sub

     strFilter = "GIF Files (*.gif), *.gif,JPEG Files (*.jpg), *.jpg,PNG Files (*.png), *.png,TIFF Files (*.tif), *.tif"
차트를 저장하기 전에 대화상자를 띄워 어떠한 형식의 이미지파일을 사용할 것인지를 선택하도록 할 것입니다. 이를 필터라고 하는데, Export메소드가 지원하는 4가지 이미지형식을 지정합니다.

다음은 필터에 대한 엑셀도움말을 옮겨본 것입니다.
이 문자열은 파일 필터 문자열의 쌍으로 이루어지고 뒤에는 MS-DOS 와일드카드 문자 파일 필터 형식이 나타나며, 각 부분과 쌍은 쉼표로 구분됩니다. 각 쌍은 파일 형식 드롭다운 목록 상자에 나열됩니다. 예를 들면 "텍스트 파일(*.txt),*.txt,추가 기능(*.xla),*.xla"는 두 개의 파일, 즉 텍스트 파일과 추가 기능 파일에 대한 필터를 지정합니다.
하나의 파일 필터 종류에 여러 개의 MS-DOS 와일드카드 문자 식을 사용하려면 "Visual Basic Files(*.bas; *.txt),*.bas;*.txt"와 같이 와일드카드 문자 사이를 세미콜론으로 구분합니다. 인수를 생략하면 기본값은 "모든 파일(*.*),*.*"입니다

     For Each oChart In ActiveSheet.ChartObjects
현재 시트에서 있는 차트를 반복합니다
          If oChart.Chart.HasTitle Then
               strChartName = oChart.Chart.ChartTitle
          End If
만일 차트이름이 있다면 이것을 strChartName에 넣어 두고 대화상자의 기본파일이름으로 사용합니다.
     SaveFileName = Application.GetSaveAsFilename ( _
InitialFileName:=strChartName, _
위의 대화상자에서 처음에 표시하는 파일이름
FileFilter:=strFilter, _
파일형식 필터
FilterIndex:=1, _
1번 필터를 디폴트값으로 설정(즉 GIF포맷)
Title:="Chart Save As" )
대화상자의 이름

          If SaveFileName <> False Then
사용자가 취소를 하지 않은 경우 저장을 합니다.

               oChart.Chart.Export _
Export메소드를 사용합니다.

FileName:=SaveFileName, _
저장할 이미지 파일이름입니다.

FilterName:=Right(SaveFileName, 3)
파일이름 뒤에는 확장자 3글자가 붙는데 이걸 따서 저장할 파일형식으로 지정합니다.
          End If
     Next
End Sub