Foto's via macro wissen , maar enkel die in bepaalde cellen staan.

[davylenders123]

Ik zou via de macro in module 2 willen meenemen dat hij de foto's die in de samengevoegde cellen staan wist.

Ik heb via het forum al wel oplossingen gevonden maar deze wissen alle foto's in het tabblad.
Er staan foto's in waar een macro is aan gekoppeld en deze mogen dus niet verwijderd worden.
Zoals de mail foto stuurt een mail en doet nog wat zaken en de fototoestel foto haalt de functie foto toevoegen op.



Hoe kan ik dit oplossen ?

Bekijk bijlage Doorgeven van reparaties.xls

Als er ergens een wachtwoord wordt gevraagd is het "0000"

 

[edmoor]

Ik zie geen foto's anders dan het mail- en fototoestel icoon omdat het gekoppelde afbeeldingen zijn en dus niet in het document zelf zitten. Geef die afbeeldingen een logische naam. Dan kan je alle afbeeldingen behalve degene met die naam verwijderen.

Geeft de vaste foto's bijvoorbeeld de naam vstFoto1, vstFoto2, vstFoto3 en vstMail. Je kan dan dit gebruiken voor het verwijderen van de andere foto's"

Sub VerwijderFotos()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        if Left(shp.Name, 3) <> "vst" Then shp.Delete
    Next shp
End Sub

 

[davylenders123]

Edmoor

Raar want als ik het bestand op de pc open doe zie ik gewoon de foto's staan.
En deze heb ik ingevoegd door bovenaan invoegen te kiezen en dan afbeelding en gewoon een foto genomen die op mijn h schijf staat.
Als ik het bestand dat ik hier geplaats heb open doe dan zie ik de foto's ook niet.

Ik heb de code toegevoegd zoals je hebt beschreven. En de foto's de naam gegeven.
Maar verwijderd toch alle foto's uit het bestand.

De foto's een naam geven heb ik gedaan door ze op te slaan op de pc en de namen te geven die je gebruikt hebt.
En dan opnieuw in te voegen in excel en macro aan te koppelen.
Of is dit niet wat je bedoeld ?
De foto's zijn png bestanden.

 

[edmoor]

Met een naam geven aan de foto bedoel ik een naam geven aan het Shape object in je document. Dat staat los van de naam van de foto's. Ik heb overigens net de code nog iets aangepast.

Of bedoel je echt het verwijderen van de foto's van je harde schijf?

De foto's worden dus niet aan het document toegevoegd maar aan het document gekoppeld.
Dat betekent dat ze op dezelfde plek op schijf aanwezig moeten zijn als waar vandaan ze werden gekoppeld.
Als je dus dat document via mail aan iemand stuurt zijn de foto's er niet.
Het toevoegen van de foto's moet daarom anders. Ik heb je Module1 aangepast. Maak daar dit van:

Sub Afbeelding1_Klikken()
    Range("A22").Select
    Call GetPicture
End Sub

Sub Afbeelding2_Klikken()
    Range("L22").Select
    Call GetPicture
End Sub

Sub Afbeelding3_Klikken()
    Range("W22").Select
    Call GetPicture
End Sub

Sub GetPicture()
    Dim pct As Shape
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Ok"
        .Title = "Selecteer een afbeelding"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "Alle bestanden", "*.*"

        If .Show = -1 Then
            Set pct = ActiveSheet.Shapes.AddPicture(.SelectedItems(1), False, True, ActiveCell.Left + 1.5, ActiveCell.Top + 1.5, -1, -1)
            With pct
                .Height = (ActiveCell.Height * 24) - 2
                .Locked = True
            End With
        End If
    End With
End Sub

Voor het verwijderen blijft gelden wat ik eerder noemde.
Het geheel is verwerkt in dit document:
Bekijk bijlage Doorgeven van reparaties.xls

 

[davylenders123]

De foto's moeten enkel uit het excel bestand verwijderd worden.
Is een documenten dat verschillende mensen gaan invullen en doormailen , en het is de bedoeling dat de gegevens na het mailen uit het eerste tabblad terug verwijderd worden zodat het terug zuiver klaar staat voor de volgende.

Shape object in je document heb ik nog nooit van gehoord dit is nieuw voor mij.
Hoe kan ik de foto's via Shape object hernoemen ?

 

[edmoor]

Voor de duidelijkheid nogmaals, je hernoemd niet de foto's op schijf maar het object in het document.
Zie m'n vorige post. Daar staat het document waarin alles is verwerkt.

 

[davylenders123]

edmoor

Nogmaals bedankt voor weeral je snelle hulp die je geboden hebt.
Met je bestandje ben ik er geraakt.:thumb: