Workaround

Als u dit probleem wilt voorkomen, kunt u een Microsoft Visual Basic-macro maken met de volgende code:

De door Microsoft gebruikte programmeervoorbeelden dienen uitsluitend ter illustratie. Microsoft verleent dan ook geen enkele impliciete of expliciete garantie met betrekking tot deze voorbeelden. Er gelden geen impliciete garanties met betrekking tot verkoopbaarheid en/of geschiktheid voor een bepaald doel, noch enigerlei andere garanties. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertalen VBScript en VBA, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. U kunt desgewenst contact opnemen met Microsoft Productondersteuning voor uitleg over de functie van een bepaalde procedure. Microsoft Productondersteuning is echter niet bereid de voorbeelden aan te passen om extra functies toe te voegen of om procedures te maken die aan uw specifieke wensen voldoen. Als u nog niet zoveel programmeerervaring hebt, kunt u desgewenst contact opnemen met een Microsoft Certified Partner. Als u meer informatie wilt over Microsoft Certified Partners, bezoekt u de volgende website van Microsoft:

Voor meer informatie over de beschikbare ondersteuningsopties en hoe u contact kunt opnemen met Microsoft, bezoekt u de volgende website:

Private Sub Workbook_Open() Call DeleteEMFsEnd Sub
Private Sub DeleteEMFs() Dim fso As Variant Set fso = CreateObject("Scripting.FileSystemObject") Dim fs As FileSearch Dim i As Long Set fs = Application.FileSearch With fs .LookIn = fso.GetSpecialFolder(2) .Filename = "*.emf"
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then On Error Resume Next For i = 1 To .FoundFiles.Count Kill .FoundFiles(i) Next i On Error GoTo 0 End If End With
Set fso = Nothing Set fs = NothingEnd Sub