I change the code from
Dim anchor As New XSSFClientAnchor(650, 550, 0, 0, 0, 1, 2, 4)
become
Dim anchor As New HSSFClientAnchor(0, 0, 800, 0, 0, 1, 1, 4)
and problem resolved.
Dim anchor As New XSSFClientAnchor(650, 550, 0, 0, 0, 1, 2, 4)
become
Dim anchor As New HSSFClientAnchor(0, 0, 800, 0, 0, 1, 1, 4)
and problem resolved.