|
Hallo zusammen,
ich bin ziemlich neu hier, weil ich Hilfe benötige.
Ich habe ein VBA Code geschrieben (auch für mich das erstemal), um Bilder einzufügen. Das hat auch geklappt, nur wenn ich diesen File verschicke, kann der andere die Bilder nicht sehen.
Mein Code:
Sub Insertpic()
Dim pic As Picture
Dim pic_location As String
Dim pic_name As String
Dim i As Long
For i = 2 To 4
pic_name = Worksheets("Tabelle1").Cells(i, 1).Value
pic_location = "C:UsersxxxPicturesTest" & Worksheets("Tabelle1").Cells(i, 1).Value & ".jpg"
With Worksheets("Tabelle1").Cells(i, 3)
Set pic = ActiveSheet.Pictures.Insert(pic_location)
pic.Top = .Top
pic.Left = .Left
pic.ShapeRange.LockAspectRatio = msoFalse
pic.Placement = xlMoveAndSize
pic.ShapeRange.Width = 100
pic.ShapeRange.Height = 100
End With
Next
End Sub
Ich habe schon recherchiert, dass man den anderen Code benutzen muss und zwar "ActiveSheet.Shapes.AddPicture" statt "ActiveSheet.Pictures.Insert"
nur weiß ich nicht, wie ich alles umformulieren kann. Hab auch versucht, die Bilder ins andere Sheets zu kopieren, man kann die Bilder trotzdem auf anderen Rechner nicht sehen. Kann mir jemand helfen? ich wäre sehr dankbar.
Gruß, 7full
|