opmaak variabelen

[mariannevanh]

Ik heb een VBA-macro (die reeds eerder hier is besproken) waarbij ik de weergave van een van de variabelen graag cursief wil hebben.

Enkele regels uit de macro:

strTitle1 = InputBox("Titel1")
strTitle2 = InputBox("Titel2")

en verderop
...

.TextFrame.TextRange.Text = strTitle1 & " - " & strTitle2

Nu wil ik graag de waarde van strTitle2 cursief weergegeven hebben. Ik denk hierbij aan iets in de trant van:

.Italic = msoTrue

Het resultaat zou er dan zo uit moeten zien:

Titel 1 - Titel 2

Ik kom er niet hoe dit moet doen. Wie kan mij helpen?

Vriendelijke groet,
Guido

 

[OctaFish]

Volgens mij kan dat niet, tenzij je het tekstvak cursief opmaakt. Variabelen kennen sowieso geen opmaak, al kun je een getal natuurlijk wel opmaken als valuta. Maar dan voeg je alleen tekst toe.

 

[emields]

.Font.Italic = True

 

[mariannevanh]

.Font.Italic = True

Hoe integreer ik dat in die programmaregel .

TextFrame.TextRange.Text = strTitle1 & " - " & strTitle2

?

 

[mariannevanh]

Volgens mij kan dat niet, tenzij je het tekstvak cursief opmaakt. Variabelen kennen sowieso geen opmaak, al kun je een getal natuurlijk wel opmaken als valuta. Maar dan voeg je alleen tekst toe.

Dan blijft het een kwestie van handmatig werk

 

[VenA]

Plaats het document inclusief de macro eens. Volgens mij kan het wel alleen

.TextFrame.TextRange.Text = strTitle1 & " - " & strTitle2

kan volgens mij op veel objecten in diverse office applicaties slaan.

 

[mariannevanh]

Onderstaand de totale macro:

Option Explicit

Public Sub BladMuziekNaarPowerPoint()

Dim lngFile As Long
Dim lngFiles As Long
Dim lngImageHeight As Long
Dim lngImageWidth As Long
Dim lngSlide As Long
Dim lngSlideHeight As Long
Dim lngSlideWidth As Long
Dim lngTitleHeight As Long
Dim strTitle1 As String
Dim strTitle2 As String
Dim vntFile As Variant

    For lngSlide = ActivePresentation.Slides.Count To 1 Step -1
        ActivePresentation.Slides(lngSlide).Delete
    Next
    strTitle1 = InputBox("Titel")
    strTitle2 = InputBox("Bron")
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        If .Show = True Then
            lngFiles = .SelectedItems.Count
            For Each vntFile In .SelectedItems
                lngFile = lngFile + 1
                With ActivePresentation
                    lngSlideWidth = .PageSetup.SlideWidth
                    lngSlideHeight = 9 * lngSlideWidth / 16
                    .PageSetup.SlideHeight = lngSlideHeight
                    With .Slides.Add(.Slides.Count + 1, ppLayoutBlank)
                        .FollowMasterBackground = msoFalse
                        .Background.Fill.ForeColor.RGB = RGB(0, 0, 0)
                        With .Shapes
                            With .AddTextbox(msoTextOrientationHorizontal, 0, 0, lngSlideWidth, 27)
                                With .TextFrame.TextRange.Font
                                    .Color = 65535
                                    .Name = "Arial Rounded MT Bold"
                                    .Size = 24
                                End With
                                .TextFrame.TextRange.Text = strTitle1 & " - " & strTitle2 & " : " & lngFile
                                lngTitleHeight = .Height
                            End With
                            With .AddPicture(vntFile, msoFalse, msoTrue, 0, 0)
                                .LockAspectRatio = msoFalse
                                .Top = lngTitleHeight
                                .Left = 0
                                .Height = lngSlideHeight - lngTitleHeight
                                .Width = lngSlideWidth
                            End With
                        End With
                    End With
                End With
            Next
        End If
    End With
End Sub

Vriendelijke groet,

Guido

 

[VenA]

Bijzonder helder verhaal. Het gaat dus niet om de opmaak van een variabele maar over de presentatie ervan? En het het gaat om Powerpoint? En dat is allemaal veel te veel moeite om het gelijk in de OP te vermelden? Dus 7 onnodige reacties?