Weird type mismatch run-time error (13)

[Dimitris254]

i'm using Excel macro in a worksheet to read a cell, which then i put as in a textbox in PowerPoint.

With PP_Slide.Shapes.AddTextbox(Orientation:=1, Left:=28, Top:=20, Width:=300, Height:=40).TextFrame.TextRange    
.Text = wsSheet.Cells(1, "A")
End With

the code works fine for 5 slides (it's in a loop apparently).

The weird is that every 5 slides i get the type mismatch error. The best is that if i simply press F5 to continue the macro, it will continue flawlessly (for 5 more slides).

 

[marcelocbd]

i'm using Excel macro in a worksheet to read a cell, which then i put as in a textbox in PowerPoint.

With PP_Slide.Shapes.AddTextbox(Orientation:=1, Left:=28, Top:=20, Width:=300, Height:=40).TextFrame.TextRange    
.Text = wsSheet.Cells(1, "A")
End With

the code works fine for 5 slides (it's in a loop apparently).

The weird is that every 5 slides i get the type mismatch error. The best is that if i simply press F5 to continue the macro, it will continue flawlessly (for 5 more slides).

That is certainally a weird bug. What is the data type you are trying to copy (text, numbers, both?).
Regardless of that, you said that if you press F5 again it continue flawlessly, try adding this to your code, before the with....

On Error Resume Next

It won't in fact solve the mismatch error, but might just work and you can go on with your life

 

[Dimitris254]

sry for the late reply, being working on that little bug

i tried error handling but the result was that the subtitle would disappear from the 6th slide onwards

i ended up storing the subtitle text to a string variable (e.g. subtitle_text = wsSheet.Cells(1, "A") ) and then using the variable to pass the title in the slide (ie. .Text = subtitle_text )

i can't imagine any other reason than being a memory/hardware issue, although i don't run out of memory or something.