makro til at erstatte word-objects i excel-regneark

Går ud fra, at det er af typen WordDocument's
Ligger der andre objekter i dokumentet?
Det er vel ikke samme billede, der skal indsættes - eller?

På alle de ark, hvor der er et word-object(tror det er sådan et) skal det erstattes med det samme billede. Der står nemlig det samme i alle word-objects.

forslag - koden anbringes i aktuelle ark:

Sub erstatObj()
    For Each obj In ActiveSheet.OLEObjects
        With obj
Rem gem placering & størrelse
            navn = .Name
            oL = .Left
            oT = .Top
            oW = .Width
            oh = .Height
            .Delete
        End With

Rem indsætter billede på samme placering & størrelse
        ActiveSheet.Pictures.Insert("\\private\PB$\Billeder\dk-benzin.jpg").Select
        With Selection
            .Left = oL
            .Top = oT
            .Width = oW
            .Height = oh
        End With
    Next
End Sub

I første omgang på et enkelte ark...

Alle ark i mappen:

Sub erstatObj()
    For Each ark In ActiveWorkbook.Sheets
        ark.Activate
        behandlingAfArk
    Next
End Sub
Private Sub behandlingAfArk()
    For Each obj In ActiveSheet.OLEObjects
        With obj
Rem gem placering & størrelse
            navn = .Name
            oL = .Left
            oT = .Top
            oW = .Width
            oh = .Height
            .Delete
        End With

Rem indsætter billede på samme placering & størrelse
        ActiveSheet.Pictures.Insert("\\private\PB$\Billeder\dk-benzin.jpg").Select
        With Selection
            .Left = oL
            .Top = oT
            .Width = oW
            .Height = oh
        End With
    Next
End Sub

Skal jeg bruge den første kode, hvis jeg gerne vil bruge den sidste kode, det er nemlig en kode, som skal være tilgængelig for flere brugere på et netværk.

Du må undskylde, men jeg har lige opdaget at det ikke er alle word-objects hvor der står det samme. Kan man kun erstatte dem, hvor der står noget bestemt?

Det er nemlig kun de objects, som skal erstattes, alle de andre skal bare stå uberørt.

Sp.1 Version 2 behandler alle ark i en xls.mappe
Sp.2 Ja - men så skal jeg vide, hvordan et objekt, der skal slettes, kan identificeres?

Ja det er jo lige det... Jeg ved bare hvad der står i objektet - kan det identificeres på andre måder?

Er er tale om dokumenter - hvis ja - er der så noget i dokumentnavnet, der kan identificerer de dok., der skal slettes?

jeg ved hvad teksten er i dokumentet, men har dokumentet også et navn - ligesom autotekster i word har et navn?

Hvad adskiller tekstmæssigt de "dokumenter", der må slettes i forhold til dem, der ikke må.

Skal du jeg skrive hvad der præcis står i de "dokumenter", som skal erstattes?

Word-objekterne er det lagrede dokumenter - så der er et filnavn - eller?

Nåh.. Kan man se det noget sted, for det er ikke mig, som har lavet excel-mappen. Jeg har kun en fil, men ved du hvordan man kan se det? Den må jo tydeligvis stå et eller andet sted.

Hvis muligt, er du velkommen til at sende filen til: pb@supertekst-it.dk

Mange tak, det gør jeg så...