Replace shape(autoshape) not working when contains text in PowerPoint vba

Need little help from this forum. I want to replace shape(autoshape) with other autoshape in my project & found a solution here http://www.vbaexpress.com/forum/showthread.php?68760-Change-Fill-col