Logo op vaste plaats op verschillende werkbladen

[Stone52]

Hallo,

Ik zoek een manier om een logo dat op meerdere
werkbladen aanwezig is op exact dezelfde
plaats op de resp. werkbladen te positioneren.

Wie kan een voorzet geven ?

 

[Thankyou]

Probeer eens:

1e tabblad secteren, shift knop ingedrukt houden, laatste tabblad selecteren (nu staan alle tussenliggende bladen ook geselecteerd ) en voeg nu het logo in.

Succes,
Martin

 

[Stone52]

Martin,

Dat is niet wat ik bedoel. Op alle werkbladen staat het logo al.
Het gaat er mij vooral om het logo op exact dezelfde plaats
op het werkblad te krijgen zodat je bij het "springen" van het
ene naar het andere tabblad een rustiger beeld krijgt.

Kortom, ik zoek een manier op een shape (??) te positioneren.

 

[Thankyou]

Er zal best een manier zijn, dit is wat ik weet - en volgens mij zo gebeurd.

 

[Gotty]

Probeer eens:

1e tabblad secteren, shift knop ingedrukt houden, laatste tabblad selecteren (nu staan alle tussenliggende bladen ook geselecteerd ) en voeg nu het logo in.

Succes,
Martin

Dat lijkt mij ook, maar ik heb een Excel-bestand met 2 tabbladen gepakt en ook allebei geselecteerd en dan kan je geen afbeelding invoegen, ik denk tenminste dat je het via afbeelding invoegen bedoelt.

Martin,

Dat is niet wat ik bedoel. Op alle werkbladen staat het logo al.
Het gaat er mij vooral om het logo op exact dezelfde plaats
op het werkblad te krijgen zodat je bij het "springen" van het
ene naar het andere tabblad een rustiger beeld krijgt.

Kortom, ik zoek een manier op een shape (??) te positioneren.

Het voorstel van Thankyou voldoet volgens mij wel aan hetgeen jij beschrijft in jou eerste bericht en in dit bericht. Maar wat je dan zou moeten doen is van elk tabblad het logo weer verwijderen, en dan alle tabbladen selecteren zoals Thankyou beschrijft en dan een afbeelding (logo) invoegen, maar dat werkt helaas niet zo lijkt het, misschien met VBA.

 

[Thankyou]

Ik ben bang dat Gotty gelijk heeft betreft de afbeelding en vba

 

[danny147]

Beste Stone52

Zet op het eerste werkblad een foto, daar waar jij ze wilt.
Kopieër dan uw tabblad naar keuze.

Groetjes Danny. :thumb:

 

[Gotty]

Beste Stone52

Zet op het eerste werkblad een foto, daar waar jij ze wilt.
Kopieër dan uw tabblad naar keuze.

Groetjes Danny. :thumb:

Hoe simpel kan het zijn . Ik neem aan dat danny147 een leeg tabblad bedoelt, dus na het kopieren heb je 2 lege tabbladen. Maar dan kun je de waarden en formules ook kopieren met speciaal plakken. Als je het weet klinkt het niet verwarrend en als je het niet weet dan laat maar van je horen .

 

[Warme bakkertje]

Met VBA is dit zo opgelost. Een 1ste vereiste is wel dat op al je werkbladen de rij(en) boven je logo dezelfde rijhoogte hebben en alle kolom(men)links van je logo dezelfde kolombreedte hebben. Dan kan je onderstaande eens proberen. Wijzig "Figuur 1" in de naam van je object (logo)

Sub tst()
For Each sh In ThisWorkbook.Sheets
    With sh.Shapes("Figuur 1")
        .Left = [B2].Left
        .Top = [B2].Top
    End With
Next
End Sub

 

[Stone52]

Rudi,

Dank je voor de voorzet. Ik ben ermee bezig: het ziet er veelbelovend uit.

Dan je.

 

[Stone52]

De oplossing van Rudi krijg ik niet goed werkend: op alle
werkbladen heeft het logo een andere naam ("picture 7",
"picture 2", "picture 5"). Indexeren per werkblad met
shape(1) geeft fouten.

Is er bv een manier om het logo op een werkblad te kopieren
naar een specifieke plaaats op een ander werkblad (zoals
bedoeld in de oplossing van Rudi: naar een bepaalde cel
links boven ?)

Iemand nog een voorzet ?

 

[Ginger]

Mag ik dan zo vrij zijn om de simpelste maar erg onbekende oplossing te geven? De rasterlijnen in een Excelsheet zijn 'magnetisch' te maken. Selecteer je logo en druk daarna op de Alt-toets (ingedrukt houden!). Als je dan gaat slepen met je logo zal je zien dat er van rasterlijn naar rasterlijn wordt gesprongen. Zo kan je dus al je logo's heel simpel in bijvoorbeeld de linker bovenhoek van cel B1plakken.

Groet, Leo

 

[snb]

Mijn voorkeur zou een logo zijn, dat onafhankelijk van wat er zich in het werkblad afspeelt op steeds dezelfde positie staat.

Sub Macro19()
  For Each sh In Sheets
    With sh.Pictures.Insert("E:\Mijn afbeeldingen\OF logo.bmp")
      .Top = IIf(c0 = "", sh.Rows(2).Top, c0)
      .Left = IIf(c1 = "", sh.Columns(2).Left, c1)
      c0 = .Top
      c1 = .Left
      .Placement = xlFreeFloating
    End With
  Next
End Sub

 

[Stone52]

Ginger en snb dank voor de aangedragen oplossingen:
beiden geven een prima resultaat !