Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Bild aus dem DMU Nav in Ppt einfügen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Bild aus dem DMU Nav in Ppt einfügen (2082 mal gelesen)
ogard1
Mitglied
Verfahrenstechniker


Sehen Sie sich das Profil von ogard1 an!   Senden Sie eine Private Message an ogard1  Schreiben Sie einen Gästebucheintrag für ogard1

Beiträge: 442
Registriert: 12.09.2004

R19 SP2

erstellt am: 16. Sep. 2007 10:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,
ich möchte aus Dem Activen Fenster DMU Navigator(unter Windows) das Bild in Power Point einfügen,
bekomme ber leider immer eine Fehlermeldung beim einfügen des Bildes in PP.(an der stelle Fett dargestellt)
Vielleicht hat jemnd Idee wo ich das Fehler habe.

Vielen Dank


Sub CATMain()

PptInsertPicture


End Sub

Sub PptInsertPicture ( )

Dim TempPfad
TempPfad = "D:\test\"

Dim fso
Set fso = CreateObject ( "Scripting.FileSystemObject")
Dim Dateiname
Dateiname = fso.GetTempName ( )
TempPfad = TempPfad+Dateiname+".bmp"

Dim viewer3D1 As Viewer
Set viewer3D1 = CATIA.ActiveWindow.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D

On Error Resume Next
Dim Window1
Set Window1 = CATIA.ActiveWindow
Dim WindowLayout1
WindowLayout1 = Window1.Layout
Window1.Layout = catWindowGeomOnly
CATIA.StartCommand "CompassDisplayOff"
On Error GoTo 0

Dim Color (2)
Viewer3D1.GetBackgroundColor color

Viewer3D1.PutBackgroundColor Array (1, 1, 1)

Viewer3D1.Update
Viewer3D1.CaptureToFile catCaptureFormatBMP,  TempPfad+Datiname+".bmp"

Dim PowerPoint
On Error Resume Next
Set PowerPoint = GetObject (,"PowerPoint.Application")
If Err.Number <> 0 Then
Err.Clear
Set PowerPoint =CreateObject ("PowerPoint.Application")
End If
On Error GoTo 0
PowerPoint.Visible = TRUE

If PowerPoint.Presentations.Count = 0 Then
Dim PptPresentations
Dim PptCurrentSlide
Set PptPresentations = PowerPoint.Presentations.Add
Set PptCurrentSlide = PptPresentations.Slides.Add (1, 12)
End If

Dim PptSlideRange
Set PptSlideRange = PowerPoint.ActiveWindow.Selection.SlideRange
Dim PptShapes
Set PptShapes = PptSlideRange.Shapes

'das Bild in die Folie einfügen
Dim PptShape
Set PptShape = PptShapes.AddPicture ( TempPfad, True, True, 70, 70 )

Viewer3D1.PutBackgroundColor Array (color (0), color (1), color (2))
On Error Resume Next
Window1.Layout = WindowLayout1
CATIA.StartCommand "CompassDisplayOn"
On Error GoTo 0
Set PptObject = Nothing
Set Viewer1 = Nothing
fso.DeleteFile (TempPfad)
Set fso = nothing

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Proofin
Mitglied
Dpl.Ing


Sehen Sie sich das Profil von Proofin an!   Senden Sie eine Private Message an Proofin  Schreiben Sie einen Gästebucheintrag für Proofin

Beiträge: 208
Registriert: 24.11.2004

erstellt am: 17. Sep. 2007 11:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ogard1 10 Unities + Antwort hilfreich

Moin ogard1,

ich weiß nicht welche PowerPoint Version du verwendest aber in meiner Version(2000) sieht die Zeile wie folgd aus:

Set PptShape = ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=sPath, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=120, Height:=90)

Gruß
Proofin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ogard1
Mitglied
Verfahrenstechniker


Sehen Sie sich das Profil von ogard1 an!   Senden Sie eine Private Message an ogard1  Schreiben Sie einen Gästebucheintrag für ogard1

Beiträge: 442
Registriert: 12.09.2004

R19 SP2

erstellt am: 18. Sep. 2007 10:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

Vielen Dank für die Antwort, ich nutze PP 2003
habe aber mit deinen Vorschlag an der gleiche stelle fehlermeldung,
ich bekomme das Bild gespeichert, PP starten, bild einfügen funktioniert nicht,
hat es bei dir funktioniert?

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Proofin
Mitglied
Dpl.Ing


Sehen Sie sich das Profil von Proofin an!   Senden Sie eine Private Message an Proofin  Schreiben Sie einen Gästebucheintrag für Proofin

Beiträge: 208
Registriert: 24.11.2004

erstellt am: 18. Sep. 2007 10:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ogard1 10 Unities + Antwort hilfreich

Moin ogard1,

ich hab deine Datei- und Pfadangaben mal einbißchen geändert und damit
funktioniert es bei mir.

---------------------------------------
CODE
---------------------------------------
Sub PptInsertPicture()

Dim TempPfad
TempPfad = "c:\tmp\"

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim Dateiname
Dateiname = fso.GetTempName()
'TempPfad = TempPfad + Dateiname  + ".bmp"

Dim viewer3D1 'As Viewer
Set viewer3D1 = CATIA.ActiveWindow.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D

On Error Resume Next
Dim Window1
Set Window1 = CATIA.ActiveWindow
Dim WindowLayout1
WindowLayout1 = Window1.Layout
Window1.Layout = catWindowGeomOnly
CATIA.StartCommand "CompassDisplayOff"
On Error GoTo 0

Dim Color(2)
viewer3D1.GetBackgroundColor Color

viewer3D1.PutBackgroundColor Array(1, 1, 1)

viewer3D1.Update
viewer3D1.CaptureToFile catCaptureFormatBMP, TempPfad & Dateiname

Dim PowerPoint
On Error Resume Next
Set PowerPoint = GetObject(, "PowerPoint.Application")
If Err.Number <> 0 Then
Err.Clear
Set PowerPoint = CreateObject("PowerPoint.Application")
End If
On Error GoTo 0
PowerPoint.Visible = True

If PowerPoint.Presentations.Count = 0 Then
Dim PptPresentations
Dim PptCurrentSlide
Set PptPresentations = PowerPoint.Presentations.Add
Set PptCurrentSlide = PptPresentations.Slides.Add(1, 12)
End If

Dim PptSlideRange
Set PptSlideRange = PowerPoint.ActiveWindow.Selection.SlideRange
Dim PptShapes
Set PptShapes = PptSlideRange.Shapes

'das Bild in die Folie einfügen
Dim PptShape
Set PptShape = PptShapes.AddPicture(TempPfad & Dateiname, True, True, 70, 70)

viewer3D1.PutBackgroundColor Array(Color(0), Color(1), Color(2))
On Error Resume Next
Window1.Layout = WindowLayout1
CATIA.StartCommand "CompassDisplayOn"
On Error GoTo 0
Set PptObject = Nothing
Set Viewer1 = Nothing
fso.DeleteFile (TempPfad & Dateiname)
Set fso = Nothing

End Sub
---------------------------------------
CODE ENDE
---------------------------------------

Gruß
Proofin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ogard1
Mitglied
Verfahrenstechniker


Sehen Sie sich das Profil von ogard1 an!   Senden Sie eine Private Message an ogard1  Schreiben Sie einen Gästebucheintrag für ogard1

Beiträge: 442
Registriert: 12.09.2004

R19 SP2

erstellt am: 18. Sep. 2007 11:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,


Vielen Dank

dass hat jetzt funktioniert, wo habe ich den Fehler gemacht?

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Proofin
Mitglied
Dpl.Ing


Sehen Sie sich das Profil von Proofin an!   Senden Sie eine Private Message an Proofin  Schreiben Sie einen Gästebucheintrag für Proofin

Beiträge: 208
Registriert: 24.11.2004

erstellt am: 18. Sep. 2007 14:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ogard1 10 Unities + Antwort hilfreich

Du bist mit deinen Pfadangaben etwas durcheinander gekommen.
Siehe die folgenden Zeilen:
am Anfang:
...
Dateiname = fso.GetTempName ( )
TempPfad = TempPfad+Dateiname+".bmp"
...

und weiter unten:
...
Viewer3D1.CaptureToFile catCaptureFormatBMP,  TempPfad+Datiname+".bmp"
...

und PPT hast du folgendes übergeben:
...
Set PptShape = PptShapes.AddPicture ( TempPfad, True, True, 70, 70 )
...

deshalb hat PPT die Datei nicht gefunden.

Gruß
Proofin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz