📅 교육 일정

- 04월 29일(화) : 09:00~17:00

- 04월 30일(수) : 08:00~16:30

📍 교육 장소

- HL 인재개발원 (경기 용인시 기흥구 기흥단지로 46)

🛜 강의장 와이파이 안내

- ID : hins_guest

- PW : guest1630

✅원활한 실습 진행을 위해 개인 노트북을 지참해주시기 바랍니다.

✅ 개인 노트북이 아닌 회사 노트북을 사용하는 경우, 실습 파일은 반드시 DRM 해제 후 참여 부탁드립니다.

※ 실습 파일은 안내 메일에 첨부되어 있습니다.

✅ AI Tool 로그인을 위한 구글 계정을 준비 부탁드립니다.

✅ 출석 체크는 고용24 앱을 통해 진행됩니다. 수강 전 반드시 고용24 앱 다운로드 및 회원가입을 완료해 주시기 바랍니다.

Dim shp As Shape

Dim startCol As String

Dim startRow As Long

Dim colStart As Double

Dim colEnd As Double

Dim targetWidth As Double

Dim targetHeight As Double

Dim currentTop As Double

Dim i As Long

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Set ws = ActiveSheet

startCol = "G" ' 시작 열

startRow = 1 ' 시작 행 (맨 위에서 시작)

' G열 왼쪽 ~ L열 오른쪽까지 총 너비 계산

colStart = ws.Columns("G").Left

colEnd = ws.Columns("L").Left + ws.Columns("L").Width

targetWidth = colEnd - colStart

' 12개 행의 총 높이 계산

targetHeight = 0

For i = startRow To startRow + 11

targetHeight = targetHeight + ws.Rows(i).Height

Next i

' 시작 Top 위치 설정

currentTop = ws.Rows(startRow).Top

' 모든 도형 중 그림(Picture 또는 그림 형식)만 처리

For Each shp In ws.Shapes

If shp.Type = msoPicture Then

With shp

.LockAspectRatio = msoFalse ' 비율 고정 해제

.Width = targetWidth

.Height = targetHeight

.Left = colStart

.Top = currentTop

End With

' 다음 그림 위치를 계산

currentTop = currentTop + targetHeight

End If

Next shp

Application.ScreenUpdating = True

Application.DisplayAlerts = True

MsgBox "모든 이미지 크기 조정 및 재배열 완료!"

End Sub

Dim ws As Worksheet

Dim pic As Picture

Dim startColumn As String

Dim endColumn As String

Dim startRow As Long

Dim colLeft As Double

Dim colWidth As Double

Dim rowTop As Double

Dim rowHeight As Double

Dim currentTop As Double

Set ws = ActiveSheet

' 시작 열과 끝 열 설정 (G열~L열)

startColumn = "G"

endColumn = "L"

' 시작 행 (1행부터 시작)

startRow = 1

' G열 왼쪽 위치

colLeft = ws.Columns(startColumn).Left

' G~L열 총 너비

colWidth = ws.Columns(startColumn & ":" & endColumn).Width

' 12행 총 높이

Dim i As Long

For i = startRow To startRow + 11

rowHeight = rowHeight + ws.Rows(i).Height

Next i

' 이미지를 세로로 쭉 나열할 시작 위치

currentTop = ws.Rows(startRow).Top

' 모든 Picture 순회

For Each pic In ws.Pictures

With pic

' 크기 조정

.Left = colLeft

.Top = currentTop

.Width = colWidth

.Height = rowHeight

' 다음 그림의 Top 위치를 업데이트 (현재 그림 높이만큼 아래로)

currentTop = currentTop + rowHeight

End With

Next pic

End Sub

오늘보다는 조금 빠르게 많은 정보를 얻으면 좋을 것 같습니다.

시간 가는 줄 모르고 강의 들었습니다.

아래 링크를 통해 참여 부탁드립니다.

https://moaform.com/q/j1d9Qd

전체 구성과 난이도, 강의 준비는 매우 훌륭하다고 생각합니다.

다만, 문서 DRM 해제관련 회사의 보안 문제는 본 교육 효과성을 향상시키는 데 가장 큰 걸림돌이라고생각합니다.

비단 교육에서 DRM을 해결했다해도, 회사업무에 적용하기에는 DRM문제로 지속 사용하기는 어려울 것 같습니다.

사전온라인) 챗지피티 프롬프팅 기초

사전준비) 당사에 적절한 프로젝트 준비해서 선택해서 참석하도록 (예: 보고서 작성/정보 수집 등)

1일차) 이번 강의 내용과 같은 심화 교육 (따라하기)

2일차) 개인 프로젝트 구현 / 완성