빙고표를 만들고 빙고칸을 클릭하면 동그라미 표시가 나타나게 하고 싶은 경우입니다. 표로 만들려면 힘들고 도형으로 각각의 네모를 만들고동그라미가 나타나는 애니메이션에각각의 네모 도형으로 트리거를 걸면 됩니다.첫번째 네모 위에 동그라미 도형을 삽입하고동그라미 도형에 나타내기(밝기변화, 확대) 등의 효과를 적용합니다.그 상태에서 애니메이션 트리거를 아래에 있는 네모 도형(Box_1_1)로 지정합니다.그러면 슬라이드 쇼에서 첫번째 네모를 클릭하면 동그라미 도형이 나타납니다.반대로 동그라미를 클릭하면 동그라미 자신이 사라지게 할 수도 있습니다.동그라미에 애니메이션 추가를 누르고(반드시 추가를 눌러야 기존 애니메이션이 사라지지 않습니다.)사라지기 효과를 적용합니다.그 상태에서 애니메이션 트리거를 자기자신(Cir..
전체 글 검색 결과
예를 들어 당근 사이트처럼 이미 UTF-8인코딩인 경우 WinHttp 로 HTML 문서 내용을 가져오면인코딩이 깨집니다. 이런 경우 인코딩 오류를 예방하거나 처리하는 방법을 소개합니다. 인코딩이 깨질 때첫번째 방법: WinHttp 대신 XMLHttp 혹은 ServerXMLHttp를 이용해서 접속하기아래는 Late Binding이지만 Early Binding하려면 도구 > 참조에서 XML 6.0 등의 라이브러리를 추가합니다.Function GetDocumentByURL(URL) Set winhttp = CreateObject("MSXML2.XmlHttp") Set document = CreateObject("Htmlfile") winhttp.Open "GET", URL, False..
파워포인트 파일을 열었을 때 마지막 페이지가 북마크처럼 뜨긴 하지만 마지막 페이지로 이동하는 기능은 없어서VBA를 이용해야겠습니다.페이지를 이동하는 코드는 아래처럼 간단합니다. Sub onLoad() ActiveWindow.View.GotoSlide 페이지번호숫자 End Sub 현재 슬라이드 위치를 태그에 저장하는 코드는 아래와 같습니다. Sub SaveTag() ActivePresentation.Tags.Add "LastPage", ActiveWindow.View.Slide.SlideIndex End Sub 더 자세한 내용은 아래 클래스와 모듈 코드를 참고하세요.직접 입력하기에는 조금 복잡할 수 있으니첨부파일 다운로드 받아서 파일 속성에서 '차단해제'하고 매크로를 허용한 다음다..
예를 들어 1페이지에 4개씩 유인물 인쇄를 할 때 유인물 레이아웃을 이용해도 슬라이드 썸네일 크기나 여백을 세밀하게 조정할 수 없습니다. 사용자가 인쇄되는 슬라이드의 크기나 간격을 조절하려면원본 슬라이드의 크기를 조절하는 수밖에 없습니다.디자인 > 슬라이드 크기에서 4:3이나 16:9 혹은 사용자 지정으로 크기를 변경해야 합니다.당연히 원본의 가로:세로 비율이 달라지게 됩니다.다른 방법은 각 슬라이드를 일단 그림으로 저장해서 각 슬라이드 그림을 불러와서 인쇄하는 방법입니다.1. 파일 > 다른이름으로 저장에서 각 슬라이드를 PNG로 저장합니다.2. 삽입 > 사진앨범을 누르고 저장한 PNG이미지들을 선택하고 4슬라이드씩 즉 그림4개씩으로 설정합니다. 그 다음 만들기를 누르고 생성된 사진 앨범을 편집하는..
1. 개발도구 > 추가기능에서 Web 으로 검색해서 Web Viewer 추가기능을 추가합니다.2. 추가된 Web Viewer 추가기능을 클릭하여 슬라이드에 추가하고 크기를 조절합니다.3. 웹브라우저에서 구글 스트리트 뷰에서 점 세 개를 누르고 이미지 공유 또는 삽입 을 누르고지도 퍼가기 주소를 복사합니다.복사한 주소에서 www.google.com/maps 부터 따옴표 전까지 복사해서Web Viewer 주소에 붙여 넣습니다. 반드시 https:// 는 생략해야함에 유의하세요.www.google.com/maps/embed?pb=!4v1728815825435!6m8!1m7!1snvekigVIih0Czwl2yv3ozg!2m2!1d37.57485888109894!2d126.9771074238897!3f321..
워드 문서의 1페이지마다 사진(또는 사진 설명 포함)을 하나씩 일괄로 삽입하는 방법입니다. 매크로 안쓰는 방법1. 파워포인트에서 삽입 > 사진 앨범 기능으로 사진 100장 일괄 삽입2. 다른이름으로 저장이나 내보내기에서 PDF로 저장3. MS워드에서 PDF파일 불러오기 > 자동 변환또는 아래와 같은 VBA를 이용할 수 있습니다. ChatGPT코드를 활용하였으나 오류가 다수 발생하여 대폭 수정하였습니다. 더보기Option ExplicitSub InsertImagesCenteredOnEachPage() Dim imgFolder As String Dim imgFile As String Dim imgPath As String, sExt As String Dim doc As..
위처럼 의료기기를 검색하는 사이트( https://emedi.mfds.go.kr/portal )의 검색결과를 엑셀로 가져오는 예시입니다. 여러가지 항목으로 검색할 수 있는데일단 명칭(query2)과 업체명(entpName) 으로 검색하는 예시 파일을 만들어 보았습니다. 첨부파일 매크로 허용해서 열고명칭이나 업체명을 입력하고 시작페이지 ~ 마지막 페이지를 입력하고마우스 우클릭해서 getMed 를 실행합니다.위와 같이 화면입니다.내부적으로 xmlHttp를 이용해서https://emedi.mfds.go.kr/search/data/list?chkList=1&nowPageNum=1&tabGubun=1&query2=브러쉬&entpName=신원&chkGroup=GROUP_BY_FIELD_01&pageNum=1&se..
'철수와 영희가 같이 있다'에서 '철수'만 애니메이션을 적용하려면해당 부분만 따로 텍스트 상자를 만들어야 합니다.그런데 따로 텍스트상자로 복사해서 위치를 맞추고 편집하는 것이 매우 귀찮은 작업입니다.이런 경우 아래 VBA를 이용하면 빈칸을 기준으로 텍스트를 분리해서자동으로 단어마다 텍스트 상자를 만들어줄 수 있습니다.alt+F11 창에서 삽입 > 모듈 추가한 후에 아래 코드를 붙여넣습니다.그리고 코드 창을 닫고 원하는 텍스트 상자나 도형을 선택한 상태에서 Alt+F8을 누르고 매크로를 실행하면 되됩니다.더보기Option Explicit'Const SplitChar = "/"Const SplitChar = " "Sub SplitCurrentTextframe() Dim shp As Shape, ..
최근댓글