[VBA POWERPOINT] [done]Supprimer toutes les images du slide1

Supprimer toutes les images du slide1 [VBA POWERPOINT] [done] - VB/VBA/VBS - Programmation

Marsh Posté le 20-12-2005 à 10:09:53    

bonjour,
 
je voudrais supprimer toutes les images de mon slide1  
 
mais je sais pas comment faire  :??:  
avec l enregist macro j obtiens ça  

Code :
  1. ActiveWindow.Selection.SlideRange.Shapes("Picture 187" ).Select
  2.     ActiveWindow.Selection.ShapeRange.Delete


merci d'avance

Message cité 2 fois
Message édité par sakuraba le 21-12-2005 à 11:07:25
Reply

Marsh Posté le 20-12-2005 à 10:09:53   

Reply

Marsh Posté le 20-12-2005 à 10:46:13    

de plus je n'arrive pas à faire un boucle pour deverrouiller mes boutons
 

Code :
  1. Private Sub Remize0_Click()
  2. Dim i
  3. For i = 1 To 7
  4. CommandButton(i).Locked = False
  5. Next i
  6. End Sub

Reply

Marsh Posté le 20-12-2005 à 11:34:11    

sakuraba a écrit :

de plus je n'arrive pas à faire un boucle pour deverrouiller mes boutons
 

Code :
  1. Private Sub Remize0_Click()
  2. Dim i
  3. For i = 1 To 7
  4. CommandButton(i).Locked = False
  5. Next i
  6. End Sub



 
j'ai trouvé tout seul :)
 

Code :
  1. For Each ctrl In UserForm1.Controls
  2.           If TypeOf ctrl Is MSForms.CommandButton Then
  3.                 ctrl.Locked = False
  4.           ElseIf TypeOf ctrl Is Image Then
  5.                 ctrl.Picture = LoadPicture()
  6.           ElseIf TypeOf ctrl Is TextBox Then
  7.                 ctrl.Value = ""
  8.           End If
  9.      Next ctrl

Reply

Marsh Posté le 20-12-2005 à 15:14:52    

sakuraba a écrit :

bonjour,
 
je voudrais supprimer toutes les images de mon slide1  
 
mais je sais pas comment faire  :??:  
avec l enregist macro j obtiens ça  

Code :
  1. ActiveWindow.Selection.SlideRange.Shapes("Picture 187" ).Select
  2.     ActiveWindow.Selection.ShapeRange.Delete


merci d'avance


 :bounce:

Reply

Marsh Posté le 21-12-2005 à 09:38:58    

sakuraba a écrit :

bonjour,
 
je voudrais supprimer toutes les images de mon slide1  
 
mais je sais pas comment faire  :??:  
avec l enregist macro j obtiens ça  

Code :
  1. ActiveWindow.Selection.SlideRange.Shapes("Picture 187" ).Select
  2.     ActiveWindow.Selection.ShapeRange.Delete


merci d'avance


la solution

Code :
  1. Dim i As Integer
  2. For i = ActiveWindow.Selection.SlideRange.Shapes.Count To 1 Step -1
  3.     If ActiveWindow.Selection.SlideRange.Shapes(i).Type = msoPicture Then
  4.         ActiveWindow.Selection.SlideRange.Shapes(i).Delete
  5.     Else
  6.     End If
  7. Next i

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed