| |
파포에서 매크로실행해서 아래와 같이 불러오려고 합니다. 고수님들 잠깐만 도와주세요. 어디 잘못인지..
요약) 메인테이블에 있는 성명,사진(속성:OLE개체)을 파포의 도형(Name1,IMG1)에 각각 불러오기.
감사합니다. 절 받으세요 넙쭉~
Sub AutoPhoto()
Dim Rs As New ADODB.Recordset
Dim strSQL, strConn As String
Dim FileName As String
Dim ppt As PowerPoint.Presentation
Dim sld As Slide
Dim Shp As Shape
FileName = "C:\Users\goodrod\Desktop\main.accdb"
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & FileName & ";"
strSQL = "select [성명],[사진] from [메인테이블] "
Rs.Open strSQL, strConn
Set ppt = ActivePresentation
Do While Not Rs.EOF
Set Shp = sld.Shapes("Name1")
Shp.TextFrame.TextRange.Text = Rs.Fields("성명")
Set Shp = sld.Shapes("IMG1" )
Shp.Fill.UserPicture (Rs.Fields("사진")) <<< userpicture 메서드 (Fillformat 개체) 오류 발생
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
End Sub |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
