Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  Inventor VBA
  Texthöhe Führungslinientext

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
  
PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung
Autor Thema:  Texthöhe Führungslinientext (464 / mal gelesen)
Bluejay
Mitglied
Ingenieur


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

Beiträge: 207
Registriert: 14.05.2007

Inventor 2011 for Simulation<P>Microsoft Windows XP Professional<P>Dell Precision T3400
Intel(R) Core(TM)2 Duo CPU
E6750 @2,66 GHz
3,00 GB RAM

erstellt am: 12. Okt. 2021 07: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

Guten Morgen zusammen,
ich finde das Problem in folgendem Code nicht - die Texthöhe wird nicht angepasst - alle texte werden einfach gelöscht. Kann mir einer von euch aushelfen / einen Tip geben?

Sub Note()

Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oLeaderNote As LeaderNote

For Each oLeaderNote In oDoc.ActiveSheet.DrawingNotes.LeaderNotes
   


    oText = oLeaderNote.Text
    oTextSize = oLeaderNote.Text
   
    Dim oFormattedText As String

   
  'oFormattedText = "<StyleOverride Bold='False'>" & oText & "</StyleOverride>"
   
 
 

oFormattedTex = "<StyleOverride FontSize='" & 0.3 & "'>" & "Text" & "</StyleOverride>"

      oLeaderNote.FormattedText = oFormattedText


Next
End Sub

Danke und Gruss

------------------
MFG

BlueJay

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

BernoAn
Mitglied



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

Beiträge: 172
Registriert: 16.01.2014

erstellt am: 12. Okt. 2021 08:23    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 Bluejay 10 Unities + Antwort hilfreich

Hi,

Struddelfehler, du hast den Buchstaben "t" vergessen

Code:

oFormattedTex = "<StyleOverride FontSize='" & 0.3 & "'>" & "Text" & "</StyleOverride>"

neu

Code:

oFormattedText = "<StyleOverride FontSize='" & 0.3 & "'>" & "Text" & "</StyleOverride>"

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



Anzeige:Infos zum Werbeplatz >>

yasuCAD CAD APP für Tiefbau, Umwelt

Since 1985, AnkiSOFT Software developes software to design infrastructure projects. yasuCAD has been developed for Stormwater Network Design. It is for Drawing / Modelling / Planning / Design / Analyze the stormwater network. The software works under AutoCAD or ZWCAD.

Bluejay
Mitglied
Ingenieur


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

Beiträge: 207
Registriert: 14.05.2007

Inventor 2011 for Simulation<P>Microsoft Windows XP Professional<P>Dell Precision T3400
Intel(R) Core(TM)2 Duo CPU
E6750 @2,66 GHz
3,00 GB RAM

erstellt am: 12. Okt. 2021 13:37    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

Danke (-: Manchmal ist mann einfach blind!

------------------
MFG

BlueJay

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)2025 CAD.de | Impressum | Datenschutz