Итак, я уже несколько дней бьюсь головой об этом и подумал, что не повредит, если у кого-то есть решение.
Я программирую макрос в VBA для PowerPoint. Помимо прочего, ему необходимо скопировать и вставить несколько фигур (примерно 40 при каждом запуске). Однако случайным образом останавливается с ошибкой: 
Это происходит в случайных точках во время выполнения, а не в одной и той же точке каждый раз; иногда вместо этого он вставляет предыдущую фигуру, вызывая другие проблемы; а иногда он будет полностью выполнен без проблем. Я перепробовал множество предлагаемых исправлений, которые я нашел здесь и на других сайтах, и, похоже, ничего не работает.
Прямо сейчас, это соответствующий бит кода:
ClearClipboard
newPriorityShape.Copy
DoEvents
Set pastedShp = curSlide.Shapes.PasteSpecial(ppPasteDefault)
ClearClipboard
А для ClearClipboard у меня есть:
Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Public Function ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Function
Если у кого-то есть какие-либо другие предложения, я ' Буду очень признателен.