Excelのセルをパワーポイントにビットマップ形式で貼り付けたいのですが、何故かパワポの2枚目に貼りついてくれません(どうしても1枚目に貼りつきます)。

補足

sl.Shapes(1).LockAspectRatio = msoFalse With ppPt.Slides .Add _ Index:=.Count + 1, _ Layout:=ppLayoutText End With countSld = ppPt.Slides.Count ppPt.Slides.Item(countSld).Select Cells(RL_Row + 3, 2).Select a = ActiveCell b = Left(a, 8) End If ActiveCell.Font.ColorIndex = 1 And b = "会社名" Then End If 'If b = "会社名" Then ActiveCell.Offset(1, 0).Activate a = ActiveCell b = Left(a, 8) Loop Set ppPt = Nothing Set tpp = Nothing End Sub

Visual Basic35閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございました。 もうちょっと考えてみます。

お礼日時:2021/12/2 21:00