Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Arbeitsblattformate mittels VBA löschen

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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Arbeitsblattformate mittels VBA löschen (2149 mal gelesen)
alexx
Mitglied
Dipl.Ing.(FH)


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

Beiträge: 16
Registriert: 14.08.2003

erstellt am: 09. Mai. 2004 14: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

ich möchte die Inhalte der Arbeitsblattformate mittels VBA löschen. Bei Schriftfeldern, Rändern usw. klappt das ja zB. mit
    For i = 1 To oDocDestination.TitleBlockDefinitions.Count
        oDocDestination.TitleBlockDefinitions.Item(i).Delete
    Next i
Aber kann mir jemand sagen, wie ich die Arbeisblattformate anspeche? Als *Definitions gibt's eben nur Schriftfelder, Ränder und Skizzierte Symbole.
Danke vorab

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

PaulSchuepbach
Moderator
Programmierer




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

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 10. Mai. 2004 07:45    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 alexx 10 Unities + Antwort hilfreich

Hallo Alexx,

Du kannst die Sheet-Groesse auslesen mit:

MsgBox oDocDestination.ActiveSheet.Size

wobei 'oDocDestination' Dein DrawingDocument-Objekt ist. Rueckgabewert ist die DrawingSheetSizeEnum.

Hoffe, das hilft.


Gruesse,

Paul

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

alexx
Mitglied
Dipl.Ing.(FH)


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

Beiträge: 16
Registriert: 14.08.2003

erstellt am: 10. Mai. 2004 14:49    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


Arbeitsblattformate.jpg

 
Hallo Paul,

erstmal danke, aber ich meinte was anderes. Ich möchte die Inhalte der Arbeitsblattformate löschen. Siehe jpg-Anhang: also A4-Größe, Hochformat ... bis A0-Größe... Es sollen keine Arbeitsblattformate in der idw mehr enthalten sein.
Danke schon mal.
Gruß Alexx

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

lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



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

Beiträge: 3794
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2022
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 10. Mai. 2004 17:03    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 alexx 10 Unities + Antwort hilfreich

Hi Alexx,

eigentlich müsste es so funktionieren:


Sub DeleteBorderDefinitions()

    Dim i As Long
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
   
    On Error Resume Next
    For i = oDrawDoc.BorderDefinitions.Count To 1 Step -1
   
        oDrawDoc.BorderDefinitions.Item(i).Delete
   
    Next i
    On Error GoTo 0

    Set oDrawDoc = Nothing
   
End Sub


------------------
Gruß Lothar

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

alexx
Mitglied
Dipl.Ing.(FH)


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

Beiträge: 16
Registriert: 14.08.2003

erstellt am: 11. Mai. 2004 13:06    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

Hi Lothar,

dein Code löscht die Inhalte der "Ränder" aber nicht die Inhalte der "Arbeitsblattformate". Ich vermute bald, dass die APIProgrammier- und Anwendungsschnittstelle (Application Programming Interface) des Inventors das nicht kann.
Für Ränder gibt's die BorderDefinitions, für Scfhriftköpfe die TitleBlockDefinitions aber was um Himmels willen gibt's für Arbeitsblattformate????

Gruss und Dank
Alexx

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

lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



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

Beiträge: 3794
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2022
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 11. Mai. 2004 17:25    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 alexx 10 Unities + Antwort hilfreich

Hi Alexx,

ich habe es auch nicht gefunden  .

Vermutlich hast Du Recht - und es geht nur zu Fuß.

------------------
Gruß Lothar

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

Arpi
Mitglied



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

Beiträge: 79
Registriert: 19.04.2002

erstellt am: 04. Jan. 2005 09:24    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 alexx 10 Unities + Antwort hilfreich

Laut Autodesk gibt es keine Möglichkeit, die Arbeitsblattformate via VB  zu löschen, da nicht in der API vorgesehen. Es gibt auch kein workaround. Es geht weder in der 9er noch wird es in der 10er implementiert sein.
Es wurde aber als Wunsch aufgenommen.

------------------
Tata
Rainer

Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt!

www.fla-nell.de
kindermöbel & accessoires

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

eagle82
Mitglied
Konstrukteur


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

Beiträge: 35
Registriert: 23.06.2005

IV10 SP3a

erstellt am: 11. Jul. 2006 12:16    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 alexx 10 Unities + Antwort hilfreich

Hallo!

Dadurch dass ich momentan die Möglichkeit gebraucht habe ein Arbeitsblattformat zu löschen, habe ich mich ein bischen damit beschäftigt und man kann es umgehen!!!

Über den BrowserPane sichtbar machen und selectieren, dann mittels SendKeys({DEL}) entfernen ... ---> gelöscht!

Mfg

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