foto in excel ?

[karell]

Hallo allemaal,

Heb excel 1997.

Had hier een code van het Warme bakkertje gehaald en dacht nadat ik dat invoerde ,dat krijg ik wel geregeld gelijk ik het graag heb.
Maar dat is al een paar weken geleden dat ik dat dacht en het enigste dat ik weet nu, is dat ik verkeerd heb gedocht.
Sub test()
On Error Resume Next
Set pic = ActiveSheet.Pictures.Insert("pad naar afbeelding")
On Error GoTo 0
If Not pic Is Nothing Then
Set rng = ActiveCell
With pic
.Height = rng.Height
.Width = rng.Width
.Left = rng.Left
.Top = rng.Top
.Placement = xlMoveAndSize
End With
End If
End Sub

Foto’s om in te voegen staan in de dir c:\foto en hebben het juiste formaat.

De bedoeling is,telkens Excel opstart dat er in het bereik range l1: o8 een random foto komt te staan,
uit de dir c:\foto (waar er veel in staan) en dat ie de vorige foto die er stond wegdoet.

Groeten
Karel

 

[snb]

gebruik

activesheet.shapes.addpicture(......)

 

[karell]

Welk doe ik verkeerd Harry?

 

[snb]

Ik ben snb, geen Harry.

Zoek eerst eens in de hulpfunktie van de VBEditor op addpicture en welke verplichte argumenten daarbij horen.

Maak svp geen overbodige objectvariabelen: dus geen 'Set"

 

[karell]

Sorry voor de naams verspreking eh...

Heb wel naar activesheet.shapes.addpicture(......) gekeken in de help gelijk ge zegt en zo moet je het leren,maar euh....ik ga het laten gelijkl het is.
Daarom bedankt om me er op te wijzen,want ik wist nog niet dat het bestond.

 

[karell]

niet excel 1997 gelijk boven zegde maar wel 2007.

 

[hellboy01]

Is dit wat je bedoelt?

https://www.youtube.com/watch?v=yI92efPug-U

 

[karell]

Toch niet maar het is wel opgelost hoor,vond ergens (weet nimmer waar ) dit hieronder en daar ben ik blij mee,want ik ben sinds kort op pensioen en ik vind excel machtig.........maar zo moeilijk (voor mij toch ).

Zeg dat hierboven er maar bij,omdat ge zeker niet zou denken dan,dat dat hieronder van mij is.

Sub fo()
Dim ImgFileFormat As String, pic As Variant, Protect As String
'Range(ActiveCell, ActiveCell.Offset(8, 4)).Select
'Selection.Clear 'Contents
Protect = InputBox("J = foto ", "STANDAARD STAAT ER j , ZODUS HOEF JE ENKEL TE ENTEREN.", "j")
If Protect = "j" Then ActiveSheet.Unprotect Password:="3"
If Protect <> "j" Then
ActiveSheet.Protect Password:="3"
Else
On Error Resume Next
ImgFileFormat = "Image Files jpg (*.jpg),*.jpg,(*.bmp),others, tif (*.tif),*.tif"
Set pic = ActiveSheet.Pictures.Insert(Application.GetOpenFilename(ImgFileFormat))
On Error GoTo 0
If Not pic Is Nothing Then
Set Rng = ActiveCell
With pic
.Height = Rng.Height
.Width = Rng.Width
.Left = Rng.Left
.Top = Rng.Top
.Placement = xlMoveAndSize
End With
End If
End If
End Sub

 

[hellboy01]

Hi KarelL (2xLL ) ik weet niet hoe jouw engels is maar hier wat YouTube excel tutorials.

https://www.youtube.com/watch?v=ABXPb0qnKUY&list=PLS7iHfqXNVhK3yzd_4XS5k4zsvnu2mkJC

https://www.youtube.com/watch?v=x2_y0_KDaN0&list=PLNOaHLAVKArjxj2dqq3umFbRSuEyHIBmw

https://www.youtube.com/watch?v=AIhKNNXzZLM&list=PLw8O1w0Hv2ztGjIkrW7suD6oNDaOk3vbR

en voor Excel cursussen is deze meneer de Guru van YouTube;

https://www.youtube.com/user/ExcelIsFun

Veel kijk en leer plezier.

Als je al deze video's afgekeken hebt bent u de Excelmaster van het forum ;-)

 

[hellboy01]

Als je meer van lezen houdt, ook engels;

http://www.homeandlearn.org/index.html

 

[karell]

Lezen is er zeker niet bij en de rest is een ietsepietsie beter maar ook niet vet. ;-)