Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1220 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1270510
sakuraba
Posté le 20-12-2005 à 10:09:53  profilanswer
 

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
mood
Publicité
Posté le 20-12-2005 à 10:09:53  profilanswer
 

n°1270535
sakuraba
Posté le 20-12-2005 à 10:46:13  profilanswer
 

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
  5. CommandButton(i).Locked = False
  6. Next i
  8. End Sub

Message cité 1 fois
n°1270576
sakuraba
Posté le 20-12-2005 à 11:34:11  profilanswer
 

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
  5. CommandButton(i).Locked = False
  6. Next i
  8. 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

n°1270794
sakuraba
Posté le 20-12-2005 à 15:14:52  profilanswer
 

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:

n°1271047
sakuraba
Posté le 21-12-2005 à 09:38:58  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[VBA]GetOpenFilename ne fonctionne pas[VBA] mise en forme conditionnelle Excel sous Access
[VBA EXCEL 03] Probleme de mise en forme auto du graphInverser une matrice / DLL utilisee depuis VBA
Réception d'un mail en VBA[VBA] maitlo et bouton/userform
Crypter des images .jpg[VBA] While et Vlookup
Supprimer en masse des membres forum phpbbroblème de positionnement de news, d'images avec float
Plus de sujets relatifs à : [VBA POWERPOINT] [done]Supprimer toutes les images du slide1

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.051 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR