• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kopiëren naar nieuw werkblad zonder logo

Status
Niet open voor verdere reacties.
S

samabert

Gebruiker
Lid geworden
27 mrt 2010
Berichten
301
Beste,

In het bijgevoegde voorbeeld kan ik via code een copy maken van het werkblad (Test) naar een nieuw werkblad, dit na het opgeven van een nieuwe naam in de inputbox. Dit werkt, echter zonder het logo (afbeelding) in C1.

Hoe kan je dit oplossen dat het logo ook wordt gekopieerd?

Alvast bedankt.
Marc
 

Bijlagen

  • Kopieer_Afbeelding.xlsb
    517,5 KB · Weergaven: 23
Bij mij in jouw vb bestand wordt het logo mee gekopieerd.
 
Hier ook, werkt gewoon.
 
Dit begrijp ik helemaal niet, er wordt bij mij geen logo gekopieerd.
Hebben jullie een idee waar dat zou aan kunnen liggen?
Ik gebruik Office 2019 NL.
 
Hier Office 2016.
Maar ik heb dat in Office 2010 en Office 2013 ook wel gebruikt, zonder problemen.
 
On Error Resume Next niet gebruiken. Zie je vanzelf waarom het fout gaat.
ActiveSheet.Pictures(1).Copy is overbodig
 
VenA,

Ik heb jouw raad opgevolgd maar het wil toch nog niet lukken.
Wat maakt het dat dit bij jullie wel werkt, ik begrijp het niet.
 
Je gebruikt hetzelfde document als die je in #1 plaatste?
 
Ja, hetzelfde.
Hierbij het bestand met de aanpassingen van VenA.
En een test van mezelf.
 

Bijlagen

  • Kopieer_Afbeelding2.xlsb
    520,2 KB · Weergaven: 44
Zelfde resultaat, werkt hier prima.
Inclusief de knop.
 
Je hebt mijn resultaat gezien in het tweede voorbeeld.
Kan dat ergens een instelling zijn in Excel zelf?
 
In een ander document werkt het ook niet?
Wat voor Excel document is het? Van een oudere versie dan 2019? (zie verkenner)
 
Doe het eens zo:
Code: 
Private Sub CommandButton3_Click()
    Dim newName As String

    newName = InputBox("Enter the name for the copied worksheet")

    If newName <> "" Then
        Application.CopyObjectsWithCells = True
        ActiveSheet.Copy After:=Worksheets(Sheets.Count)
        ActiveSheet.Name = newName
    End If
End Sub
 
Kijk eens bij de settings. Gele moet aangevinkt zijn anders werkt het niet.
 

Bijlagen

  • Knipsel.PNG
    Knipsel.PNG
    10 KB · Weergaven: 29
@ VenA, Het was inderdaad niet aangevinkt, nu werk het wel.
@ edmoor, jouw aanpassing van de code doet het ook zonder het aanvinken.

Het aanvinken is natuurlijk het eenvoudigste.

Enorm bedankt voor de oplossingen :thumb:

M.v.g.
Marc
 
De extra regel die ik toevoegde doet hetzelfde als het aanvinken van de optie die VenA liet zien.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan