먼저 직사각형 위에 부채꼴을 추가해서 캡슐 절반의 단면을 완성합니다. 핵심 원리는 위와 같은 도형아래에 원을 그리고 FollowMe 기능을 이용합니다. 원을 따라 기존 도형이 회전하게 됩니다. 두께가 있고 속이 비어 있다면 아래처럼 원래 도형을 복제해 10%쯤 크기를 줄이고안쪽을 삭제하고 나서 FollowMe 기능을 적용합니다. 알파벳 J 글자 모양의 도형을 Follow Me 기능으로 회전시키는 것입니다. 아래와 같이 속이 빈 총알 머리 모양도형이 완성됩니다. 하나 더 복제하고 크기를 10%키우고 아래에 배치합니다. 3D Builder에서 색을 바꾸거나 회전, 크기를 바꿀 수도 있고 다른 3MF 등의 형식으로 변환할 수 있습니다.애니메이션 적용 화면: 온라인에서 캡슐모양 3D모델을 다운로드할 ..

원래는 슬라이드를 한꺼번에 다른 프레젠테이션 파일에 붙여넣으면하이퍼링크가 다시 계산되어 링크 페이지가 업데이트됩니다.​하지만 목차 슬라이드만 다른 프레젠테이션에 붙여넣거나링크로 이동되는 슬라이드만 다른 프레젠테이션에 삽입하는 경우 등은링크 페이지가 업데이트될 수 없습니다.​또한 하이퍼링크가 특정 슬라이드 페이지가 아니라 슬라이드 이름으로 링크된 경우도자동으로 업데이트가 안될 수 있습니다.​이렇게 슬라이드 링크 페이지에 오차가 발생했을 때 몇페이지 앞으로 당기거나 뒤로 밀려면VBA로 일괄로 링크 페이지를 +/- 증감시켜줄 수 있습니다.​첨부파일을 다운로드해서 파일 속성에서 '차단해제' 후 매크로 허용해서 열거나 현재 프레젠테이션에서 Alt+ F11 누르고 창이 뜨면 삽입 > 모듈을 추가한 뒤에 아래 코드를..

셀에 특정 색상을 적용해 놓고지정한 색상의 값들만 합산하고 싶을 때 사용할 수 있는 사용자 함수입니다. VBA로 주어진 색상이 칠해진 셀들의 합을 구하는 사용자 함수를 만들어 사용할 수 있습니다.=SumColor(범위, 기준색상셀) 형식입니다.=SumColor(A2:B20, F2) 라면 A2:B20 범위에서 F2의 배경색상과 같은 셀의 숫자를 모두 합한 결과를 출력합니다. Function SumColor(Rng As Range, cRng As Range) As Long Dim r As Range For Each r In Rng If r.Interior.Color = cRng.Interior.Color Then If IsNumeric(r.Value) ..

지난번 Bomb24 생성기를 바탕으로 만든, 태양계에서 지구와 가장 가까운 붉은 행성 화성에 대한 Bomb Game형식의 OX퀴즈 샘플입니다. 총 20문제입니다.각 번호 뒤에 문제에 대한 힌트를 담은 사진을 보고 문제를 추측해서 번호를 누릅니다. 문제를 누르면 O 혹은 X와 해설이 나타납니다. 오른쪽 상단 Home 버튼을 누르면 다시 번호 화면으로 돌아갑니다.한 번 누른 번호는 사라집니다.(이것이 Bomb Game이지요) 문제는 구글 Gemini 에게 출제해서 CSV로 출력해 달라고 했습니다.아래처럼 엑셀 파일로 저장해서 문제를 생성하도록 했습니다. 실행화면: 번호 도형생성, 엑셀에서 문제 슬라이드 생성, 하이퍼링크, 트리거 애니메이션 등의 과정은 VBA를 이용해서 자동화해서 만들었습니다. 1..

=Now 수식은 파일을 열 때마다, 계산이 발생할 때마다 현재시간으로 달라지게 됩니다.변하지 않는 셀값으로 넣으면서 초단위까지 서식을 지정하려면 아래와 같은 VBA로 가능합니다. Sub insertCurrentTime() With ActiveCell '.NumberFormat = "h:mm:ss AM/PM" .NumberFormat = "hh:mm:ss" .Value = Format(Now, "hh:mm:ss") '.Columns.AutoFit '셀 넓이 자동 조절 End With End Sub빠른 실행에 추가하고 Alt+숫자키로 실행할 수 있습니다.단, 엑셀 매크로 파일이 열려 있어야 합니다. 항상 실행하고 싶다면 추가기능으로 만들거나A..

모바일 다음에서 뉴스기사를 검색하면 아래와 같은 URL로 접속됩니다.https://m.search.daum.net/search?w=news&q=인공지능최대한 간단히 줄인 주소입니다.PC웹에서 검색해도 비슷한데 효율성을 위해서 모바일 검색을 기준으로 알아봅니다. 다음에서 검색에 대한 API를 제공하지만 신문사를 조건으로 검색하는 등의 상세한 기능은 지원하지 않아 Http문서를 크롤링하는 방법을 이용합니다. 검색 결과 형태는 아래와 같습니다. HTML 구조를 살펴보면 아래와 같습니다.주황색 네모 영역이 기사제목이고 파란색 네모가 제목내용이 들어 있는 태그입니다. 태그의 여러 정보를 가져올 때 GetElementsByClassName 이나 GetElementsById 등을 이용할 수 있는데여기서는 Query..

위 그림처럼 번호 도형을 누르면문제 슬라이드로 이동해서 문제를 풀고다시 돌아오면 눌렀던 번호가 사라지는 형태의 게임을폭탄처럼 사라진다는 점에서 'Bomb Game' 이라고 부릅니다. 여러차례 소개한 바 있습니다. 이 방식은 참여자가 숫자를 고른다는 점에서일반적인 랜덤 문제와 차이가 있습니다.본인이 직접 고민해서 문제를 랜덤으로 고르므로좀 더 참가자의 참여를 유도할 수 있는 점이 가장 장점입니다. 이런 방식의 슬라이드쇼를 만들려면 '트리거' 애니메이션을 이용해서하이퍼링크와 사라지기 트리거 애니메이션을 동시에 모든 번호 도형에 적용해줘야 합니다.손이 많이 가고 번거로운 단점이 있습니다. 그래서 VBA로 문제 숫자만 또는 가로*세로 숫자만 지정하면자동으로 Bomb Game을 생성해주도록 했습니다. 첨부파..

관련: 지식인 엑셀에서 그림을 삽입하면 기본으로 크기조절 옵션이 설정되는데그림을 여러개 삽입할 때 기본 속성을 원하는 대로 설정하고 싶은 경우입니다. 1. VBA를 이용할 수 있습니다.Alt+F11 창에서 삽입 > 모듈을 추가하고 아래 내용을 붙여넣습니다.코드창을 닫고 원하는 셀을 선택하고 Alt+F8누르고 InsertPicureFileHere 를 실행해서원하는 사진을 현재 셀위에 삽입하고 '크기조절 및 이동' 옵션으로 설정합니다.클립보드 사진을 삽입하려면 InsertClipboardPictureHere 를 실행합니다. 더보기Sub InsertPictureFileHere() Dim sht As Worksheet Dim rng As Range Dim shp As Shape Di..