Ú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

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