Új hozzászólás Aktív témák

• #38205 Pakliman tag bb0t #38164

  Új Válasz 2018-06-04 11:23:18 #38205

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  válasz bb0t #38164 üzenetére

  Szia!

  Ezzel kísérletezhetsz:

  Public Sub KépBerak(sKép As String, ml As Worksheet, dLeft As Double, dTop As Double, dWidth As Double, dHeight As Double)
With ml.Pictures
With .Insert(sKép)
.ShapeRange.LockAspectRatio = msoFalse

.ShapeRange.Left = dLeft
.ShapeRange.Top = dTop
.ShapeRange.Width = dWidth
.ShapeRange.Height = dHeight
End With
End With
End Sub

• #38202 Fferi50 Topikgazda bb0t #38201

  Új Válasz 2018-06-03 22:53:10 #38202

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz bb0t #38201 üzenetére

  Szia!

  Egy mintafájl nagyon sokat segítene szerintem.
  De itt egy próba makró:
  Sub Kepimport()
Dim cl As Range
Const utvonal = ("utvonal\") ' ide írd be a saját elérési útvonalad, \ legyen a végén
For Each cl In Columns("A").Cells ' az A oszlop helyére írd be azt, ahol a cikkszámok vannak
If cl.Value <> "" Then
With cl.Parent.Pictures.Insert(utvonal & cl.Value & ".JPG") 'ha nem jpg a kiterjesztés, akkor azt írd a helyére
.ShapeRange.ScaleHeight 0.3, msoFalse, msoScaleFromTopLeft ' itt állítjuk be a méretet, a 0.3 helyére próbálgatással nézd meg, mi lesz a jó
.Top = cl.Top ' a cikkszám magasságába kerül a kép
.Left = Range("H1").Left ' a H oszlophoz.
End With
Else
Exit For ' ha nincs érték a cellában, befejeztük a ciklust.
End If
Next
MsgBox "KÉSZ", vbInformation
End Sub

  Ha a cella magasság nem elég nagy és a képek átfedik egymást, akkor a cella magasságon állíts, mielőtt a makrót lefuttatod.
  Természetesen makrós fájlként (xlsm) kell mentened.

  Üdv.

• #38200 Fferi50 Topikgazda bb0t #38198

  Új Válasz 2018-06-03 20:46:18 #38200

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz bb0t #38198 üzenetére

  Szia!

  Azért pár kérdés maradt még hátra. Hová szeretnéd tenni a képet, milyen méretben? Mire használjátok a munkafüzetet, mert a sok képpel nagy méretű lesz, nehezen nyílik, esetleg áttekinthetetlenné válik.
  Nem lenne jobb hivatkozásként kezelni a cikkszámokat és rákattintással lenne látható a kép?

  Üdv.

• #38197 Fferi50 Topikgazda bb0t #38164

  Új Válasz 2018-06-03 15:52:22 #38197

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz bb0t #38164 üzenetére

  Szia!

  Nézz rá erre a válaszra[link]

  Üdv.

Új hozzászólás Aktív témák