パワポのページ毎にエクセルのテキストを添付したい
先人のコードを活用し、エクセルのURLリストからweb巡回して画面をキャプチャーし、別のエクセルに添付した後、パワポに画像とURLを貼り付けるツールを作成しています。パワポに画像を貼り付けるところまでは出来るのですが、ページ毎に順番にURLを貼り付けることが出来ません。
発生している問題・エラーメッセージ
エラーは無いのですが上手くページ毎にテキストを貼れません。
該当のソースコード
Python
1ソースコード 2 #start power point and excel 3 PowerPoint=win32com.client.Dispatch("PowerPoint.Application") 4 Excel=win32com.client.Dispatch("Excel.Application") 5 6 #make a powerpoint file and an excel file 7 presentation=PowerPoint.Presentations.Add(True) 8 workbook=Excel.Workbooks.Open(Filename=excelfile,ReadOnly=1,UpdateLinks=False) 9 10 count =0 11 for ws in workbook.Worksheets: 12 for chart in ws.Shapes: 13 # Trim a picture 14 pf = chart.PictureFormat 15 pf.CropLeft = 20 16 pf.CropTop = 20 17 18 #copy picture to clipboard 19 chart.CopyPicture() 20 21 #Add a new blank slide to Power Point 22 Slide=presentation.Slides.Add(presentation.Slides.Count+1,12) 23 24 #paste the picture to the slide 25 p = Slide.Shapes.Paste() 26 p.Left=100 27 p.Top=100 28 29 #Add a text 30 textBox = Slide.Shapes.AddTextbox(Orientation=1, 31 Left=100,Top=10,Width=200,Height=50) 32 textBox.TextFrame.TextRange.Text = "Test Box" 33 print(count) 34 count = count+1 35 36 37### 試したこと 38 #Add a text 39 textBox = Slide.Shapes.AddTextbox(Orientation=1, 40 Left=100,Top=10,Width=200,Height=50) 41 textBox.TextFrame.TextRange.Text = "Test Box" 42 43の位置をcount=count+1の後に変えたりしたのですが、パワポの最後のページに全部重ねて添付されてしまいます。初心者でtextBox.TextFrame.TextRange.Textのような書き方を理解していないので...すみません。 44 45 46### 補足情報(FW/ツールのバージョンなど) 47 48ここにより詳細な情報を記載してください。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。