Option
Explicit
Sub
Fehler_1_bei_grafik_einfügen()
If
Sheets(
"LED-Rechner"
).Range(
"C5"
).Value = 1
Then
Sheets(
"Berechnung"
).Activate
Range(
"B4"
).
Select
Else
Sheets(
"Berechnung"
).Activate
Range(
"B4"
).
Select
End
If
End
Sub
Sub
Fehler_2_bei_grafik_einfügen()
Dim
i
As
Long
If
Sheets(
"LED-Rechner"
).Range(
"C5"
).Value = 1
Then
Sheets(
"Berechnung"
).Activate
Range(
"B4"
).
Select
ActiveSheet.Pictures.Insert (
"F:\Diodenrechner\LED01.gif"
)
Else
Sheets(
"Berechnung"
).Activate
Range(
"B4"
).
Select
ActiveSheet.Pictures.Insert (
"C:\Diodenrechner\LED02.gif"
)
End
If
i = ActiveSheet.Shapes.Count
Call
MsgBox(
CStr
(i) &
" Bilder in der aktiven Tabelle: "
, vbInformation,
"Bilder vorhanden"
)
End
Sub
Sub
Wenn_schon_mit_AddPicture()
Const
PFAD1
As
String
=
"F:\Diodenrechner\LED01.gif"
Const
PFAD2
As
String
=
"C:\Diodenrechner\LED02.gif"
Dim
oShp
As
Excel.Shape
Dim
strPath
As
String
strPath = PFAD1
If
Sheets(
"LED-Rechner"
).Range(
"C5"
).Value <> 1
Then
_
strPath = PFAD2
With
Sheets(
"Berechnung"
)
For
Each
oShp
In
.Shapes
If
oShp.TopLeftCell.Address =
"$B$4"
Then
oShp.Delete
Exit
For
End
If
Next
oShp
.Shapes.AddPicture strPath,
False
,
True
, .Range(
"$B$4"
).Left, _
.Range(
"$B$4"
).Top, 80, 80
End
With
End
Sub