Hallo zusammen,
ich bin komplett neu in der Welt von VBA und Visual Studio. Durch meine vorherigen Internetrecherchen bin ich auf dieses Forum aufmerksam geworden.
Leider konnte mir jedoch weder Google noch die Forum-suche weiterhelfen. Daher muss ich nun den Schritt vom stillen Mitleser zum aktiven Fragesteller machen.
Ich Versuche mich momentan an einem kleinem Programm bei dem verschiedene Werte in Textfelder eingegeben werden.
Per Knopfdruck werden diese Werte dann in Excel und Word Dokumente geschrieben. Dies klappt auch.
1. Problem:
Es müssen, je nach Auswahl in der ComboBox, bestimmte Bilder ersetzt werden.
In der Word-Vorlage sind diese Bilder durch Bildinhaltssteuerelemte bereits an der richtigen Position.
In einem früheren VBA-Projekt (also direkt über Word) habe ich dieses folgendermaßen gelöst:
in Visual Studio sieht der Code momentan so aus:
leider funktioniert er jedoch nicht. Was ist Falsch
2. Problem:
Wenn alles erledigt ist soll Seite 1,6,11 und 50 gedruckt werden.
Mit diesem Code wird jedoch alles gedruckt:
Wo ist der Fehler?
Ich bedanke mich schon mal für die freundliche Unterstützung
ich bin komplett neu in der Welt von VBA und Visual Studio. Durch meine vorherigen Internetrecherchen bin ich auf dieses Forum aufmerksam geworden.
Leider konnte mir jedoch weder Google noch die Forum-suche weiterhelfen. Daher muss ich nun den Schritt vom stillen Mitleser zum aktiven Fragesteller machen.
Ich Versuche mich momentan an einem kleinem Programm bei dem verschiedene Werte in Textfelder eingegeben werden.
Per Knopfdruck werden diese Werte dann in Excel und Word Dokumente geschrieben. Dies klappt auch.
1. Problem:
Es müssen, je nach Auswahl in der ComboBox, bestimmte Bilder ersetzt werden.
In der Word-Vorlage sind diese Bilder durch Bildinhaltssteuerelemte bereits an der richtigen Position.
In einem früheren VBA-Projekt (also direkt über Word) habe ich dieses folgendermaßen gelöst:
VB.NET-Quellcode
- Select Case ComboBox1.Value
- Case "1 Standard"
- ActiveDocument.Image10.Picture = LoadPicture("G:\\Haken.jpg")
- ActiveDocument.Image10.PictureSizeMode = fmPictureSizeModeStretch
- ActiveDocument.Image20.Picture = LoadPicture("G:\\Leer.jpg")
- ActiveDocument.Image20.PictureSizeMode = fmPictureSizeModeStretch
- ActiveDocument.Image30.Picture = LoadPicture("G:\\Leer.jpg")
- ActiveDocument.Image30.PictureSizeMode = fmPictureSizeModeStretch
- ActiveDocument.Image40.Picture = LoadPicture("G:\\Leer.jpg")
- ActiveDocument.Image40.PictureSizeMode = fmPictureSizeModeStretch
- ActiveDocument.Image50.Picture = LoadPicture("G:\\Leer.jpg")
- ActiveDocument.Image50.PictureSizeMode = fmPictureSizeModeStretch
- 'Case "2... etc...
- End Select
in Visual Studio sieht der Code momentan so aus:
VB.NET-Quellcode
- Select Case ComboBox1.SelectedItem
- Case Content = "1 Standard"
- WdDoc.Image10.Picture = LoadPicture("G:\\Haken.jpg")
- WdDoc.image10.picture.addpicture("G:\\Leer.jpg")
- WdDoc.image10.picture = WdApp.selection.inlineshape.addpicture("G:\\Leer.jpg")
- WdDoc.Image10.PictureSizeMode = fmPictureSizeModeStretch
- WdDoc.Image20.Picture = LoadPicture("G:\\Leer.jpg")
- WdDoc.Image20.PictureSizeMode = fmPictureSizeModeStretch
- WdDoc.Image30.Picture = LoadPicture("G:\\Leer.jpg")
- WdDoc.Image30.PictureSizeMode = fmPictureSizeModeStretch
- WdDoc.Image40.Picture = LoadPicture("G:\\Leer.jpg")
- WdDoc.Image40.PictureSizeMode = fmPictureSizeModeStretch
- WdDoc.Image50.Picture = LoadPicture("G:\\Leer.jpg")
- WdDoc.Image50.PictureSizeMode = fmPictureSizeModeStretch
- 'Case Content = "2... etc ...
- End Select
leider funktioniert er jedoch nicht. Was ist Falsch
2. Problem:
Wenn alles erledigt ist soll Seite 1,6,11 und 50 gedruckt werden.
Mit diesem Code wird jedoch alles gedruckt:
Wo ist der Fehler?
Ich bedanke mich schon mal für die freundliche Unterstützung