|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.06.2019 13:24:23 |
Rainer |
|
|
|
03.06.2019 14:01:04 |
Werner |
|
|
|
03.06.2019 14:21:24 |
Rainer |
|
|
|
04.06.2019 07:12:52 |
Werner |
|
|
 Internen Grafikzähler zurücksetzen |
04.06.2019 10:38:51 |
Rainer |
|
|
Von:
Rainer |
Datum:
04.06.2019 10:38:51 |
Views:
554 |
Rating:
|
Antwort:
|
Thema:
Internen Grafikzähler zurücksetzen |
|
Guten Morgen Werner,
vielen Dank für Deine Unterstützung. Habe Deinen Code mal eingebaut und getestet. Erster Durchgang einwandfrei. Zweiter Durchgang Abbruch bei
shp.TopLeftCell.Row= <Anwendungs-oder objektdefinierter Fehler. Das Bild war allerdings gelöscht. Ich füge Dir mal den Code ein. Habe zum testen einiges rauskommentiert. Wäre nett wenn Du mal drüberschauen könntest.
Private Sub CommandButton13_Click()
'Dim vntBild As Variant
'vntBild = "C:\Users\" & ThisWorkbook.Worksheets("C-Check T2").Range("X3").Value & "\Signatur.gif"
'ThisWorkbook.Worksheets("C-Check T2").Image5.Picture = LoadPicture(vntBild)
'ActiveSheet.Calculate
CommandButton13.Visible = False
CommandButton14.Visible = False
Dim DateiName As String
DateiName = "C:\Eigene Dateien\Kassenwartung\C-CHECK\" & "_" & Range("A2")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
CommandButton13.Visible = True
CommandButton14.Visible = True
Dim rng As Range
Dim shp As Shape
'Dim rngTopLeftCell As Range
'Dim cbo As OLEObject
'For Each cbo In ActiveSheet.OLEObjects
'If Left(cbo.progID, 11) = "Forms.Check" Then
'cbo.Object.Value = False
'End If
'Next
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Row >= 60 And shp.TopLeftCell.Row <= 90 _
And shp.TopLeftCell.Column >= 2 And shp.TopLeftCell.Column <= 29 Then shp.Delete
Next
Range("Q3:S3").Select
ThisWorkbook.Worksheets("C-Check T2").Image5.Picture = LoadPicture("")
ThisWorkbook.Worksheets("C-Check T2").Cells(3, 8).Select
End Sub
Gruß
Rainer
|
- 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
|
|
03.06.2019 13:24:23 |
Rainer |
|
|
|
03.06.2019 14:01:04 |
Werner |
|
|
|
03.06.2019 14:21:24 |
Rainer |
|
|
|
04.06.2019 07:12:52 |
Werner |
|
|
Internen Grafikzähler zurücksetzen |
04.06.2019 10:38:51 |
Rainer |
|
|