매크로를 사용하여 Excel에서 그림을 삽입하는 방법
이 FAQ는 스프레드 시트에이 매크로를 적용하여 사진을 표시하는 단계를 안내합니다.
매크로를 사용하여 Excel에서 그림 삽입
사진을 삽입하기 위해 매크로를 사용하려면 다음 가정에서 시작해야합니다. 사진 이름은 B2부터 시작하여 col B에서 발견됩니다. 각 그림을 다른 위치에 붙여 넣으려고합니다. col B로 식별 된 그림을 붙여 넣을 위치는 C2에서 시작하는 col C에 있습니다.이제 다음 코드를 입력하십시오.
하위 그림 ()picname을 문자열로 희미하게합니다.
어둡게 붙여 넣기 정수로
긴 lThisRow 길다
lThisRow = 2
Do While (셀 (lThisRow, 2) "")
'범위 ('A6 ').'사진을 삽입 할 곳을 선택하십시오.
pasteAt = 셀 (lThisRow, 3)
셀 (pasteAt, 1) .Select '그림을 삽입 할 곳입니다.
'String으로 picname을 어둡게합니다.
'picname = Range ( "B6")'그림 이름입니다.
picname = 셀 (lThisRow, 2) '그림 이름입니다.
ActiveSheet.Pictures.Insert ( "C : \ Users \ vbayat \ My Documents \ vidabayat \ re-market \"& picname & ".jpg")를 선택하십시오.
"" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" '' ''
'그림 크기를 조정합니다.
"" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" '' ''
선택과 함께
'왼쪽 = 범위 ('A6 '). 왼쪽
'. Top = Range ( "A6"). 위로
.Left = 셀 (pasteAt, 1). 왼쪽
.Top = 셀 (pasteAt, 1). 위쪽
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
끝
lThisRow = 1ThisRow + 1
고리
범위 ( "A10"). 선택
Application.ScreenUpdating = True
Exit Sub
ErrNoPhoto :
MsgBox "사진을 찾을 수 없습니다" '그림을 찾을 수없는 경우 메시지 상자 표시
Exit Sub
범위 ( "B20"). 선택
End Sub
이미지 : © Microsoft.