Excel VBA beszúrt jpg után üres oldal

Excel VBA beszúrt jpg után üres oldal
2021-01-29T15:26:30+01:00
2021-02-02T16:59:03+01:00
2022-10-15T21:16:11+02:00
Nyausoft
Sziasztok,


Lenne egy problémám amikor jpg-et szúrok be makróval Excelbe mégpedig az hogy berak egy üres oldalt utána... :( Az első oldal adott, a másodikra rakom a jpg-et, de van egy nemkívánatos harmadik.
Tudna valaki segíteni? Előre is köszi!

Sub Import_jpg()

ActiveSheet.Protect Password:=jelszo, UserInterFaceOnly:=True


With ActiveSheet.Pictures.Insert("C:\Temp" & Cells(5, 11) & ".jpg")
    .Left = ActiveSheet.Range("A1").Left
    .Top = ActiveSheet.Range("A73").Top
    .Width = 643
    .Height = 911
    .Placement = 1
    .PrintObject = True
    SaveWithDokument = msoCTrue


End With


End Sub
Mutasd a teljes hozzászólást!
Szia!
Ezek szerint a normál margók annyi helyet foglalnak el, hogy a kép vagy a dokumentum egy részéneknek már csak egy következő oldalon marad hely.
Megpróbálhatod a képméretet csökkenteni...
Kideríthetnéd, hogy melyik a munkalap utolsó cellája (Ctrl+End), amit még szükségesnek érez az Excel megjeleníteni. Lehet, hogy a kép nem, csak ez az utolsó cella keveredik át arra a bizonyos harmadik oldalra.

üdv
verax
Mutasd a teljes hozzászólást!

  • Szia Nyaisoft!

    Változtass a kép méreten!
    Egy képernyőkép jó lett volna...
    Milyen Excel változatot használsz?
    Milyen oldal beállításokat használsz?

    üdvözlettel
    verax
    Mutasd a teljes hozzászólást!
  • Helló Verax,

    A képernyőképen látszik, hogy beszúrás után nincs 3. oldal, ráadásul a kép is kisebb minden irányban, de nyomtatási képen mégis van egy 3. üres oldal. Normál margó beállításokkal ez van, de ha azt mondom keskeny akkor nincs 3. oldal. Vegyem még kisebbre a képet?

    Üdv,
    Nyausoft
    Mutasd a teljes hozzászólást!
    Csatolt állomány
  • Szia!
    Ezek szerint a normál margók annyi helyet foglalnak el, hogy a kép vagy a dokumentum egy részéneknek már csak egy következő oldalon marad hely.
    Megpróbálhatod a képméretet csökkenteni...
    Kideríthetnéd, hogy melyik a munkalap utolsó cellája (Ctrl+End), amit még szükségesnek érez az Excel megjeleníteni. Lehet, hogy a kép nem, csak ez az utolsó cella keveredik át arra a bizonyos harmadik oldalra.

    üdv
    verax
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd