관련: 지식인 2  이번에는 Alllocate1.xlsm 엑셀에서 아래 매크로로 자동으로 방호수를 입력하게 해보았습니다. 배정 규칙은 아래와 같습니다.시작 방번호는 101호부터 시작합니다. ( 가능한 방번호가 정해져있을 경우 배열로 방번호 목록을 미리 만들어 두어야 합니다.  )각 국가별 시트 순서대로 배정합니다.여자들부터 방을 배정합니다.성별이 다르면 새로운 방번호로 넘어갑니다.국가가 달라도 새로운 방번호로 넘어갑니다.6명을 넘으면 새로운 방번호로 넘어갑니다.   엑셀 자동으로 방배정하는 VBA코드:더보기Option ExplicitSub Allocate1() Dim sht As Worksheet Dim lastR As Range Dim r As Range, room As Inte..

관련: 지식인 1   엑셀양식에 아래처럼 방을 구분하여 배정하고​ 아래처럼 방별로 배정명단을 출력하는 작업입니다.​코드 내용:더보기Option Explicit Sub GeneratePPT() On Error GoTo Done: Dim pres As Presentation Set pres = ActivePresentation Dim sld As Slide Dim shp As Shape Dim XLapp As Object 'Excel.Application Set XLapp = CreateObject("Excel.Application") Dim book As Object 'Excel.Workbook Dim sht As Object 'Excel..

사진을 선택하고 Alt-F8을 눌러 Picture2Boxes 매크로를 실행하고 "3,3"을 입력합니다. 아래처럼 그림이 3* 3개의 작은 박스 그림으로 분할됩니다.이미지 자르기 기능으로 여러개의 작은 박스로 분할하는 작업을자동으로 정확하게 처리할 수 있습니다. 참고: 지식인  PictureFormat.CropLeft/Right/Top/Bottom 을 이용합니다.​Alt-F11 창에서 삽입 > 모듈 추가한 후 아래 코드를 붙여 넣습니다.코드창을 닫고 원하는 사진을 선택하고 Alt-F8로 실행하면 됩니다. Option Explicit 'when a box is clickedSub Click_Box(boxShp As Shape) boxShp.Visible = msoFalse End Sub S..

관련: 지식인 아직 작동하는 HTML 요소를 이용하는 방식의 VBA입니다.https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020101&docId=436801616 아래는 좀 더 빠른 속도를 위해 JSON 데이터를 검색하는 방식입니다.교보문고에서 검색할 때 판매중인 자료는 실시간으로 간단한 데이터들을 Json형식으로 가져옵니다.이 API를 이용해서 Json 형식으로 빠르게 도서 정보를 가져오는 방법입니다. https://search.kyobobook.co.kr/srp/api/v1/search/autocomplete/shop?callback=autocompleteShop&keyword=9788954442688이런 식으로 검색하면 아래와 같은 JSON 데이터를..

파워포인트 표의 셀에 텍스트를 입력할 때글자를 입력하고 다음 셀로 이동할 때 화살표 이동키나 , Shift + 키로 이동을 해야 합니다. 키보드 구조상 글자키에서 약간 떨어져 있기 때문에 타이핑을 하다가 이동키나 탭키를 누르는 것은 불편합니다. 이 때 만약 한 글자씩 입력 한다면, 가로로 오른쪽 셀로 이동할 때는 키 대신 키로 이동한다면 편할 것입니다. 왼쪽 셀로 입력할 때는 Shift+ 대신 Shift+키를 입력하면 편할 겁니다.또한 세로로 아래 셀로 이동할 때는 키로 이동한다면 편합니다. 자, 이렇게 좀 더 편하게 낱말퀴즈 정답을 입력할 수 있도록AutoHotKey를 이용해서 키를 매핑해보았습니다. 스크립트는 아래와 같습니다.더보기#SingleInstanceMsgBox, 0x40, Space2Tab,..

관련 : 지식인  예를 들어서 3~7슬라이드는 제대로 보여주고 나머지 슬라이드는 블러처리해서 클라이언트에게 미리 보여주는 상황입니다. 파워포인트에 이런 기능은 없습니다.​​직접 처리하자면 파일을 다른 이름으로 저장에서 모든 슬라이드를 그림으로 저장하고 그래픽 소프트웨어로 일부 슬라이드그림만 블러 처리해서 저장한 다음 다시 파워포인트에서 삽입 > 사진 앨범으로 사진들을 일괄 삽입해서 PPTX로 저장하거나 PDF로 저장해야 합니다.​​이 과정을 VBA로 자동으로 처리할 수 있습니다.Const BindingMargin As Single = 0 '제본시 왼쪽 여백'저장 이미지 형식Const ImgType = "PNG"'블러(모자이크) 제외 슬라이드Const PageFrom = 3Const pageT..

위와 같은 물결무늬 디자인을 파워포인트에서 만드는 방법입니다. 관련: 지식인 반복되는 선은 인터넷에서 검색해서 이미지로 받을 수도 있지만 곡선과 파워포인트 VBA를 이용해서 만들 수도 있습니다. ​ 0. 첨부파일을 다운로드하고 파일속성에서 차단해제 체크/확인하시고 파일을 열 때 매크로를 허용합니다. ​ 1. 슬라이드에 '곡선' 도형을 이용해서 2개의 곡선 도형을 그려주세요. 점편집을 이용해서 서로 겹치게 하거나 회전 각도를 조절해도 됩니다. 중간에 생성되는 선들은 첫번째 선의 속성을 따라갑니다. 선의 두께나 색상을 조절하세요. ​ 2. alt-F8을 누르고 매크로를 실행합니다. ​ 3. 아래와 같이 두 곡선 사이에 선을 추가해줍니다. ​ 4. 이 곡선의 투명도나 색깔을 편집하고 마우스 우클릭해서 그림으로..

관련 : https://konahn.tistory.com/entry/Export2PDF 지식인 링크: https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020103&docId=467310111 특정 폴더 내의 모든 pptx 파일에 대해 내부의 모든 슬라이드를 그림(png)으로 내보내기할 수 있습니다. VBA코드: 더보기 Option Explicit 'Const TargetFolder = "C:\Temp" '따로 결과파일을 저장할 폴더가 있을 경우 Const TargetFolder = "" 'ppt파일이 있는 폴더에 저장 Const Ext = ".png" '변환 확장자 Const Zoom = 3 '저장 비율 Sub Export2PNG() Dim tPrs As..