Lien de la cellule avec Excel Forme

Dans excel, nous insérer une forme, et l'on peut lier à des cellules d'une valeur, par le choix de la forme et de taper le
référence de cellule dans la barre de formule. Je veux savoir: Comment peut-on le faire par programmation. Comme

For Each shape As Excel.Shape In workshet.Shapes
  'is there something like shape.Formula or any method from which I can do the above
   task.         
Next

Ici est ce que je veux faire par programmation

Cela fait des jours maintenant , je suis à la recherche. Vraiment Besoin d'aide, Merci Beaucoup.

OriginalL'auteur Waqas | 2011-11-18

  1. 5

    Vous n'avez pas besoin d'utiliser Sélectionnez cette option pour appliquer les formules de Formes. Sélectionnez doit être évité autant que possible car il gonfle code, et peut avoir des conséquences involontaires, par exemple le déclenchement d'Événements

    Au lieu de cela, vous pouvez utiliser la Formule directement à l'aide de DrawingOBject, voirFormAppqui vous permettent de manipuler formule existante (c'est à dire ajouter 6 cellules de A2 à faire A8, A12 à A18, etc). Le deuxième code de routine FormAdd effectue ce réglage, il travaille sur des cellules à la fois les adresses et les noms de plage de

    Sub FormApp()
    Dim Shp As Shape
    For Each Shp In ActiveSheet.Shapes
        'formula
         Shp.DrawingObject.Formula = "=A1"
        'range name
        Shp.DrawingObject.Formula = "=RangeName"
    Next
End Sub

Sub FormAdd()
    Dim Shp As Shape
    Dim rng1 As Range
    For Each Shp In ActiveSheet.Shapes
        Set rng1 = Nothing
        If Len(Shp.DrawingObject.Formula) > 0 Then
            On Error Resume Next
            Set rng1 = Range(Shp.DrawingObject.Formula)
            On Error GoTo 0
            If Not rng1 Is Nothing Then Shp.DrawingObject.Formula = "=" & rng1.Offset(6, 0).Address
        End If
    Next
End Sub
    +1 j'espérais que quelqu'un puisse identifier l'objet qui contient le .Formula de la propriété.

    OriginalL'auteur brettdj

  2. 0

    L'option la plus simple est d'en programmant de sélectionner la forme d'abord, puis appliquer la formule

    Dim Shp as Shape
For each Shp in ActiveSheet.Shapes
    Shp.Select
    Selection.Formula = "=A1"
Next

    Ou sûr, ce sera d'erreur si une forme sur la feuille ne prend pas en charge la .Formula propriété

    OriginalL'auteur chris neilsen