위와 같은 자유형 도형 ABCD가 있을 때 C점과 D점을 대칭되도록 만들고 싶습니다. 물론 처음부터 사다리꼴 도형으로 그리면 하나의 조절점으로 두 점이 동시에 조절되므로 자동으로 대칭이 됩니다. 여기서는 그밖의 자유형 도형인 경우에 두 점을 대칭되도록 만드는 것에 집중하겠습니다. 대칭이 되도록 만드는 것은 네모 도형을 하나 더 추가하고 기존 사다리꼴과 도형병합(교차 혹은 조각)를 실행해서 공통된 부분만 남기고 이 도형을 복제해서 좌우를 반사시키고 좌우에 대칭되는 절반짜리 도형을 도형병합(통합)하는 방법이 있습니다. 단, C와 D가 평행인 경우에는 가능합니다. 하지만 Y값이 서로 다르다면 문제가 다릅니다. 아래처럼 작업하면 사다리꼴이 아닌 각이 5개인 도형이 남게 됩니다. 이렇게 원하지 않는 결과가 나오므..

Recently, I dug into the mystery of merged cells in the PowerPoint table. I ended up figuring out my own methods to deal with merged cells. Please refer to the following link: https://stackoverflow.com/a/74563860/6354194 There are a few useful functions for merged cells: 1. test if the cell is merged 2. test if the cell is the first(Top-Left) cell of the merged area 3. get the index no. of the c..

통합 문서1.xlsx 파일에서 한 행씩 추출해서 파워포인트에 슬라이드를 추가하고 세로 막대 그래프를 생성하는 예제입니다. ​ 차트 생성은 엑셀에 의존하는 작업이라 약간의 시간이 소요됩니다. 또한 작업 중에 창을 건드리면 오류가 날 수 있습니다. ​ 내부적으로 슬라이드에 차트를 추가하고 데이터 입력 엑셀창에서 통합문서1.xlsx파일 엑셀 시트의 값들을 한 행씩 복사해서 SetSourceData로 차트에 반영될 데이터 영역을 지정해주고 있습니다. 더보기 Option Explicit 'AddChart2 'ChartData 엑셀에 데이터를 붙여넣는 방식 Sub AddCharts() Dim xlsApp As Object Dim xlsBook As Object, pptBook As Object Dim xlsSht ..

관련: 지식인 스핀버튼을 넣어서 누를 때마다 개수가 반영되어 계산되게 해보았습니다. ​ 아래와 같은 코드가 Slide1에 사용되었습니다. Function getCell(r As Integer, c As Integer) As TextRange Dim sld As Slide Dim shp As Shape Set sld = Slide1 Set shp = sld.Shapes("표 1") Set getCell = shp.Table.Cell(r, c).Shape.TextFrame.TextRange End Function Function doCalc() getCell(5, 2) = Format(Val(getCell(4, 2)) + Val(getCell(4, 3)) + Val(getCell(4, 4)), "###,##..

1. 유튜브 등에서 영상에 대한 자막을 다운로드합니다.(다운받은 자막은 개인적인 용도로만 사용할 것!) https://downsub.com/ 위 사이트에 유튜브 주소를 붙여넣고 언어를 선택해서 다운로드 받습니다. .SRT자막은 텍스트파일로 일반적으로 아래와 같은 형식입니다. 1 00:00:11,626 --> 00:00:15,470 불꺼진 romantic all my life 2 00:00:15,837 --> 00:00:19,376 내 주위는 온통 lovely day 3 00:00:19,673 --> 00:00:23,813 내 눈 속에 비친 arrow sign 2. 파워포인트에 유튜브 영상 등을 다운로드 받아 삽입합니다. (다운받은 영상은 개인적인 용도로만 사용할 것!) youtube.com/1234abc..

관련 : 지식인 오디오가 재생될 때 자막이 일정한 속도로 올라오게 하고 싶은 경우 간단히 생각하면, 자막 애니메이션이 위로 올라갈 때 그 재생시간을 오디오의 총 재생시간과 일치하게 하면 일정한 속도로 자막이 올라갈 것입니다. 물론 효과옵션에서 부드럽게시작과 부드럽게 종료를 0초으로 수정해야겠습니다. 어쨋든 이렇게 하면 애니메이션과 오디오 재생을 마치는 시간도 같을 것입니다. ​ 그런데 파워포인트에서는 애니메이션의 최대 재생시간이 59초로 제한이 되어 있습니다. 오디오가 긴 경우 오디오를 1분씩 나누고 텍스트상자도 여러개로 나눠서 만들어야 합니다. 이러면 문제가 복잡해지기 시작합니다. ​ ​ 1. 오디오의 길이에 상관없이 사용할 수 있는 또다른 방법은 오디오 책갈피를 이용하는 방법이 있습니다. ​ 오디오의..

위 그림과 같이 슬라이드 영역을 벗어나는 부분을 자동으로 잘라내주는 VBA매크로입니다. 사실 잘라내지 않아도 슬라이드 쇼에는 보이지 않기 때문에 문제가 되지 않습니다. 하지만 군더더기를 싫어하는 분들은 슬라이드를 벗어나는 도형이나 그림이 눈엣가시일 수도 있습니다. 도형의 경우 잘라내려면 슬라이드 외곽에 사각형 도형 등을 임시로 추가하고 원래 도형에서 이 임시 도형을 도형병합(빼기)로 빼내 주어야 합니다. 아래 삼각형처럼 위와 왼쪽이 벗어나는 경우 두 번 작업을 해줘야 합니다. 사진의 경우 그림 '자르기' 기능을 이용해서 벗어나는 영역을 Crop해주고 사진 위치와 크기도 알맞게 조절해줘야 합니다.특히 이 과정은 마우스로 하다보면 정확한 작업이 어렵고 번거로운 작업입니다.  이런 경우 아래 VBA를 이용하면..

파워포인트에서 밑줄을 그을 때 기본으로는 글자에 걸쳐서 밑줄이 그어집니다. 이 때 글자 아래에 밑줄을 긋고 싶다면 아래 내용을 참고하세요. 1. 글꼴 속성에서 '문자높이 일치' 옵션을 켜서 글자위치를 모두 올리는 방법이 있습니다.​2. VBA로 선택된 텍스트 아래에 원하는 위치에 밑줄을 그어줄 수도 있습니다.(Alt-F11 누르고 창이 뜨면 삽입 > 모듈 추가한 다음 아래 코드를 붙여넣고 코드창을 닫고원하는 텍스트를 드래그하고 Alt-F8로 매크로 실행) 더보기Const margin As Single = 5Sub magicLine() Dim tr As TextRange, c1 As TextRange, c2 As TextRange Dim x1!, y1!, x2!, y2! Dim shp As..