Macro VBA

[xorman]

Bonjour

Je voudrais savoir si une image ( dans mon exemple une signature format jpeg) existe dans le cartouche, et si cette image et présente, je voudrais l'effacer.

voici le CODE:

 

Dim Exist_Signature As Shape

Set Myview = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(1)

For Each Exist_Signature In Myview.Shape

If Exist_Signature.Name = "image.1" Then

Exist_Signature.Delete

Exit For

End If

Next Exist_Signature

 

Je débute en VBA, et je n'arrive pas à trouver la bonne solution

Merci

[8_pool]

Salut,

 

Dans un catdrawing, une image est un objet DrawingPicture, appartenant à la collection MyView.Picutres, que tu scannes pour tester si ton image existe.

 

Attention au claque sur lequel se trouve ton cartouche : il s'agit en général du fond de calque !

• oDrw_Sheet.Views.Item("Background View").Activate pour activer le fond de calque
  
• oDrw_Sheet.Views.Item("Main View").Activate pour activer le calque de vues

 

Bon courage !!

 

8_pool