강의 자료
라이브정보
방송일
2020년 08월 01일 (7회)
강의시간
1시간 12분
보충자료
📑 연결된 이미지 생성하는 매크로
Sub CreateLinkedImage()
Dim rng As Range
Dim ws As Worksheet
Dim sFormula As String
Dim pic As Shape
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set ws = ActiveSheet
Set rng = ws.Range("B2").CurrentRegion '<- 연결된 이미지를 생성할 데이터가 시작되는 셀 주소를 입력하세요
With ws
For i = rng.Column To rng.Column + rng.Columns.Count - 1
.Range(.Cells(rng.Row, i), .Cells(rng.Row + rng.Rows.Count - 1, i)).Copy
.Cells(rng.Row + rng.Rows.Count + 1, i).Select
.Pictures.Paste link:=True
Next
For Each pic In ws.Shapes
sFormula = pic.DrawingObject.Formula
.Pictures(pic.Name).Formula = "='" & ws.Name & "'!" & Trim(sFormula)
Next
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
스크립트는 로그인 후 이용할 수 있습니다.
로그인
방금 예제파일이 잘 다운로드 되는 것으로 확인했습니다.
게시글 우측의 '예제파일 다운로드' 버튼을 클릭하셔서 파일을 다시 다운로드 받아 보시겠어요? :)
감사합니다.