With slide.Shapes.AddTextbox(msoShapeRectangle, 0, 0, 200.93, 109.286).TextFrame
Clipboard.GetFromClipboard
.TextRange.PasteSpecial ppPasteHTML, msoFalse
End With
With slide.Shapes.AddTextbox(msoShapeRectangle, 187.535, 190.929, 200.93, 109.286).TextFrame
Clipboard.GetFromClipboard
.TextRange.PasteSpecial ppPasteHTML, msoFalse
End With
With slide.Shapes.AddTextbox(msoShapeRectangle, 399.628, 19.9286, 200.93, 109.286).TextFrame
Clipboard.GetFromClipboard
.TextRange.PasteSpecial ppPasteHTML, msoFalse
End With
Я скопировал весь другой HTML-код и поместил его в буфер обмена.
Однако последняя копия буфера обмена вернет то же значение.
Есть ли способсохранить сохраненный HTML-код буфера обмена в переменной в середине и вернуть его в качестве этого значения при выполнении функции?