Jeigu yra būdas padaryti geriau, atrask jį. T. A. Edison

Sveiki, Svečias
Prisijungimo vardas: Slaptažodis: Prisiminti mane
  • Puslapis:
  • 1
  • 2

TEMA: nuotraukų įkėlimas VBA

nuotraukų įkėlimas VBA prieš 2 m. 11 mėn. #7

  • dll
  • dll avataras
  • Neprisijungęs
  • Moderatorius
  • Žinutės: 194
  • Gauta padėka 47
  • Reputacija: 20
Man atrodo, kad hattrick kodą tik reikia kiek pasikoreguoti:

1) On Error papildyti, kad jei neranda nuotraukos tiesiog pereitų į sekančią eilutę - čia turbūt paprasta;

2) Nuotraukų dydį pamažinti, jei yra per didelė nuotrauka. Kažkokį panašų reikalą dariau seniau, bet reikia įsijungti kitą kompiuterį ir tiksliau pasižiūrėti, kuo baigėsi tas mažinimas :)
Administratorius uždraudė viešą pranešimų rašymą.

nuotraukų įkėlimas VBA prieš 2 m. 11 mėn. #8

  • hattrick
  • hattrick avataras
  • Neprisijungęs
  • Veteranas
  • Žinutės: 60
  • Gauta padėka 35
  • Reputacija: 8
Pakoreguotas kodas :)

Sub nuotrauku_ikelimas()


Dim nuotrauka As Picture
Dim r As String

'suskaiciuoja kiek prekiu yra 1 A:A stulpelyje
i = WorksheetFunction.CountA(Range("A:A"))

'nustato celes adresa tam, kad nurodyti, kur turetu atsidurti nuotrauka
For Z = 1 To i
r = Cells(Z, 2).Address


'nurodo nuotraukos pavadinima ir is kurios direktorijos ji turetu buti paimta

On Error GoTo NeraNuotraukos

With Range(r)

Set nuotrauka = Range(r).Parent.Pictures.Insert("N:\nuotraukos\" & Cells(Z, 1).Value & ".jpg")

'nurodo nuotraukos dydi
nuotrauka.Width = 100
nuotrauka.Height = 100

'keicia eilutes auksti atitinkamai nuotraukos auksciui ir stulpelio ploti
Rows(Z).RowHeight = nuotrauka.Height
Columns(2).ColumnWidth = 25


'nustato kur turi atsidurti nuotrauka
nuotrauka.Top = Rows(Z).Top
nuotrauka.Left = Columns(2).Left


End With

NeraNuotraukos:

Next Z

End Sub


Po eilute NeraNuotraukos: gali nurodyti ką reikėtų padaryti su stulpeliu, eilute, prekės kodu ar kuo tik sugalvosi, jog matytum, kurių prekių nuotraukų trūksta :)
Administratorius uždraudė viešą pranešimų rašymą.
  • Puslapis:
  • 1
  • 2
Moderatoriai: bankeris
Puslapio sukūrimo laikas: 0.405 sekundžių