Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Bilder in das Sheet einbetten |
15.01.2021 14:30:07 |
7full |
|
|
|
15.01.2021 14:34:48 |
Gast53132 |
|
|
|
15.01.2021 14:49:40 |
Gast61455 |
|
|
|
15.01.2021 14:41:22 |
Gast86702 |
|
|
|
15.01.2021 14:45:09 |
Gast51589 |
|
|
|
15.01.2021 14:49:43 |
volti |
|
|
|
15.01.2021 14:51:38 |
volti |
|
|
|
15.01.2021 14:51:49 |
Gast24736 |
|
|
|
15.01.2021 14:58:33 |
Gast72360 |
|
|
Von:
7full |
Datum:
15.01.2021 14:30:07 |
Views:
733 |
Rating:
|
Antwort:
|
Thema:
Bilder in das Sheet einbetten |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Bilder in das Sheet einbetten |
15.01.2021 14:30:07 |
7full |
|
|
|
15.01.2021 14:34:48 |
Gast53132 |
|
|
|
15.01.2021 14:49:40 |
Gast61455 |
|
|
|
15.01.2021 14:41:22 |
Gast86702 |
|
|
|
15.01.2021 14:45:09 |
Gast51589 |
|
|
|
15.01.2021 14:49:43 |
volti |
|
|
|
15.01.2021 14:51:38 |
volti |
|
|
|
15.01.2021 14:51:49 |
Gast24736 |
|
|
|
15.01.2021 14:58:33 |
Gast72360 |
|
|