IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Powerpoint Discussion :

Code pour barré un texte défini


Sujet :

Powerpoint

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Novembre 2018
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Boutique - Magasin

    Informations forums :
    Inscription : Novembre 2018
    Messages : 8
    Points : 6
    Points
    6
    Par défaut Code pour barré un texte défini
    Bonjour

    Je souhaite savoir comment faire pour barrer un texte de manière automatique sur Powerpoint 2016 .

    J'ai deux prix :

    le premier sera le prix de vente qui sera écrit en noir

    le deuxième sera un prix de vente indicatif écrit de couleur rouge te je veux qu'il soit barré mais vu le nombre je ne peux le faire manuellement .

    Pouvez-vous m'apporter une solution merci .

    Alexandre

  2. #2
    Invité
    Invité(e)
    Par défaut
    Citation Envoyé par Alexandre31470 Voir le message
    Bonjour,

    Bien qu'après tout ce temps, tout doit être entièrement terminé :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
     
    Option Explicit
     
    Sub BarrerLesTextesEnRouge()
     
    Dim IndexSlide As Integer, IndexShape As Integer, IndexCaractere As Integer
    Dim CaractereDebut As Integer, CaractereFin As Integer
    Dim MonTexte As TextRange2
     
           With ActivePresentation
                For IndexSlide = 1 To .Slides.Count
                    With .Slides(IndexSlide)
                         If .Shapes.Count > 0 Then
                            For IndexShape = 1 To .Shapes.Count
                               With .Shapes(IndexShape)
                                    If .HasTextFrame = True Then
                                        CaractereDebut = 0: CaractereFin = 0
                                        Set MonTexte = .TextFrame2.TextRange
                                     For IndexCaractere = 1 To Len(MonTexte.Text)
                                         If MonTexte.Characters(IndexCaractere).Font.Fill.ForeColor = RGB(255, 0, 0) Then
                                            If CaractereDebut = 0 Then CaractereDebut = IndexCaractere
                                            CaractereFin = IndexCaractere
                                         End If
                                     Next IndexCaractere
                                     If CaractereDebut > 0 Then
                                        MonTexte.Characters(CaractereDebut, CaractereFin - CaractereDebut + 1).Font.Strikethrough = msoCTrue
                                     End If
                                     Set MonTexte = Nothing
                                  End If
     
                               End With
                          Next IndexShape
                         End If
                    End With
     
                Next IndexSlide
           End With
     
    End Sub

Discussions similaires

  1. [XL-2013] Changer des codes pour des valeur texte
    Par dannik8 dans le forum Excel
    Réponses: 1
    Dernier message: 23/07/2015, 20h09
  2. [WD18] Code pour barre de progression
    Par periplo94 dans le forum WinDev
    Réponses: 5
    Dernier message: 24/03/2014, 17h49
  3. Cherhce tutoriel ou code pour RPG en texte
    Par Mobidoy dans le forum C#
    Réponses: 4
    Dernier message: 06/06/2007, 17h38
  4. [TagLib] Code pour éditer du texte "repliable"
    Par ego dans le forum Taglibs
    Réponses: 3
    Dernier message: 18/12/2005, 20h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo