makravba.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest piątek, 25 września 2020 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Hex color index


otwartyotwarty rozpoczął: VBAmator postów: 6



napisał: Trebor
postów: 1207


umieszczony:
3 września 2020
15:55

  
Select, Selection to przeważnie pozostałość po rejestrowaniu makra. Raczej się takich konstrukcji unika.
Można np. tak:
zmienna = "123"
With ActiveCell
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height).Name = "TXBX_" & zmienna
End With

With ActiveSheet.Shapes("TXBX_" & zmienna).TextFrame
.Characters.Text = zmienna
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
        
        With ActiveSheet.Shapes("TXBX_" & zmienna).TextFrame2.TextRange.Characters(2, 2).Font
            .Bold = msoTrue
            .NameComplexScript = "Verdana"
            .NameFarEast = "Verdana"
            .Fill.Visible = msoTrue
            .Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent1
            .Size = 6
            .Name = "Verdana"
        End With

Reklama
napisał: VBAmator
postów: 67


umieszczony:
3 września 2020
11:52

  
Dziękuje działa poprawnie.
Jednak potrzebuję zrobić .select ponieważ w dalszej części nadaję różne parametry np.:
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = zmienna
        With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).Font
            .Bold = msoTrue
            .NameComplexScript = "Verdana"
            .NameFarEast = "Verdana"
            .Fill.Visible = msoTrue
            .Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent1
            .Size = 3
            .Name = "Verdana"
        End With
Selection.ShapeRange.Name = "TXBX_" & zmienna



Pomożesz?
napisał: Trebor
postów: 1207


umieszczony:
2 września 2020
19:41

  
Zaproponuję troszkę inaczej:
With ActiveCell
With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height).TextFrame
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
End With

Reklama
napisał: VBAmator
postów: 67


umieszczony:
2 września 2020
13:51

  
Dzięki. Jest OK.

A czy da się wymusić ustawianie się TextBox na środku wybranej komórki? Czyli horizontal/vertical = center
With ActiveCell
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height).Select
End With

napisał: Trebor
postów: 1207


umieszczony:
29 sierpnia 2020
15:22

  
Witaj
Czy tak będzie poprawnie?
TextBox1.BackColor = &H80000018
MsgBox Hex(TextBox1.BackColor)

Reklama
napisał: VBAmator
postów: 67


umieszczony:
27 sierpnia 2020
15:01

  
Witam.
Czy mogę zastosować w Me.TextBox.BackColor zapis koloru w takiej &H80000018& postaci?
Jeśli nie to jakieś trans do RGB please.

Dziękuję.


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z