Insert existing Item VPMreference or 3DShape on server on an product structure

I try to insert an existing 3DShape in a product structure with Automation (VBA) . an you explain me how to do it ?