엑셀 양식을 만들어 놓고 smw0에 등록하여 사용하고 있습니다.
SAP에 등록되어있는 사진을 엑셀양식 사진넣는 칸에 넣어줘야합니다.
엑셀매크로 소스에 어떻게 구현해놔야 되는 지 모르겠네요.
word안에서 소스작성하여 사진띄우는 소스는 있습니다..
Sub R3_Pic()
Dim shpPic As InlineShape
Set WordTbl = ThisDocument.Tables(1)
With Application.FileSearch
.LookIn = "C:"
.FileName = "HRICOLFOTO.jpg"
If .Execute() > 0 Then
WordTbl.Cell(2, 1).Range.Delete
WordTbl.Cell(2, 1).Range.Select
Set shpPic = Selection.InlineShapes. _
AddPicture(FileName:="C:HRICOLFOTO.jpg", _
LinkToFile:=False, SaveWithDocument:=True)
End If
End With
For Each img In ActiveDocument.InlineShapes
img.Width = 68 '110
img.Height = 86 '140
Next
End Sub
이건데요.
엑셀에선 어떻게 해줘야할지 모르겠습니다. ㅠ
댓글 4
-
SkyDream
2008.01.11 01:37
-
mean
2008.01.11 04:57
감사합니다^^
참.. 추가적으로 물어볼게 있는데..
위치 조절을 할 수 있나요 ?
처음엔 제 위치에 뿌려지다
지금은 맨 하단에 나오는데.
이것저것 수정해서 다시 시도해봐도 도통 변경이 안되네요 ㅠ -
SkyDream
2008.01.11 17:01
아래와 같이 Range select를 추가하면
B2~C6 셀에 그림이 보이고
B7 셀에 커서가 가게 됩니다.
Sub load_picture01()
Range("B2").Select
ActiveSheet.Pictures.Insert( _
"C:Documents and SettingsAll UsersDocumentsMy Pictures그림 샘플석양.jpg"). _
Select
Selection.ShapeRange.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=6
Selection.ShapeRange.ScaleHeight 0.15, msoFalse, msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=-6
Range("B7").Select
End Sub
참고로 excel에서 매크로 기록은
도구 -> 매크로 -> 새매크로 기록을 선택하신 후
원하는 작업을 하신 후
기록정지 버튼을 누르시면 매크로가 만들어지며,
매크로 내용은
도구 -> 매크로 -> 매크로를 선택하신후
기록하신 매크로 선택후 편집을 누르시면 작성된 매크로 소스를 보실수 있습니다.
-
mean
2008.01.11 21:00
감사합니다^^
아래 소스는 엑셀에서 그림 insert후 size를 조정한 macro 입니다.
가지고 계신 엑셀 양식이 어떻게 되어 있는지 모르겠는데..
excel에서 직접 macro를 만들어서 그 소스를 사용하시면 될 듯 합니다.
Sub load_picture01()
ActiveSheet.Pictures.Insert( _
"C:Documents and SettingsAll UsersDocumentsMy Pictures그림 샘플석양.jpg"). _
Select
Selection.ShapeRange.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=6
Selection.ShapeRange.ScaleHeight 0.15, msoFalse, msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=-6
End Sub