Dim PPT As PowerPoint.Application
Dim Sh As PowerPoint.Shape
Dim Pres As PowerPoint.Presentation
Dim t as string
if checkbox1.value = true then
t=checkbox1.caption
end if
with Pres
.slide (2).shapes("Rectangle 2").TextFrame.TextRange.Text = "Prouduit" & chr(13) & t
End with
End sub