Hallo allemaal,
In een excel bestand laad ik via een macro een foto op. Als er geen foto in het archief zit komt er een foutmelding. (Fout 1004 tijdens uitvoering: Eigenschap Insert van klasse Picture kan niet worden opgehaald).
Ik wou de foutmelding onderdrukken via Application.DisplayAlerts = False maar ik blijf de fout krijgen.
Ik zou dus willen dat als er geen foto in het bestand zit, er niets gebeurt.
Enig idee wat ik verkeerd doe? (heb al gezocht op het forum maar vind niet onmiddellijk de juiste oplossing / ben ook geen expert in macro's).
Alvast bedankt voor de tips,
In een excel bestand laad ik via een macro een foto op. Als er geen foto in het archief zit komt er een foutmelding. (Fout 1004 tijdens uitvoering: Eigenschap Insert van klasse Picture kan niet worden opgehaald).
Ik wou de foutmelding onderdrukken via Application.DisplayAlerts = False maar ik blijf de fout krijgen.
Ik zou dus willen dat als er geen foto in het bestand zit, er niets gebeurt.
Enig idee wat ik verkeerd doe? (heb al gezocht op het forum maar vind niet onmiddellijk de juiste oplossing / ben ook geen expert in macro's).
Alvast bedankt voor de tips,
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$6" Then
Range("N6").Select
Dim picname As String
picname = Range("T1")
ActiveSheet.Pictures.Insert("Q:\Test\" & picname & ".jpg").Select
With Selection
.Left = Range("N4").Left
.Top = Range("N4").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 250#
.ShapeRange.Width = 250#
.ShapeRange.Rotation = 0#
End With
End If
End Sub