Kyselin viikko sitten miten saisin nuolen (kuva) oikealle paikalleen tai näkyviin, jos ehto täyttyy. On ehdotettu makron tekemistä ja ehdollista muotoilua. Ehdollinen muotoilu ei soveltune, koska sillä käsittääkseni ei voida muotoilla kuvaa, vaan pelkästään solua. Jäljelle jäänee vain makro.
Ongelma oli siis se miten saan automaattisesti kuvan oikealle paikalleen tai vaihtoehtoisesti näkymään, jos ehto täyttyy. Seuraava kuvaa ongelmaa.
1 a b c d
2
Ongelma oli siis se miten saan automaattisesti kuvan oikealle paikalleen tai vaihtoehtoisesti näkymään, jos ehto täyttyy. Seuraava kuvaa ongelmaa.
1 a b c d
2
Vastaukset 4
Vanhimmat
Miksei sinulle kelpaa nuoleksi riittävän isolla fontilla ja sopivalla värillä Windingsin jokin iso nuoli - sen saat ehdollisella muotoilulla näkyviin tai pois näkyvistä...
Aihe kiinnostaa myös minua. Olen painiskellut joitakin aikoja sitten samantyylisen ongelman kanssa.
Mikä on Winding? En ole koskaan kuullutkaan. Kuvagalleria? Jos se on kuva, sitä ei voi muotoilla ehdollisena.
Voisitko kertoa tarkemmin, miten ajattelit homman hoituvan. Olisihan se paljon helponpaa verrattuna makron tekemiseen.
Sub Makro1()
Dim ctop As Integer
Dim cleft As Integer
Dim maara As Integer
Application.ScreenUpdating = False
On Error GoTo loppu
maara = Range("A1").Value
Select Case maara
Case 1 To 200
Range("C3").Select
Case 201 To 299
Range("C4").Select
Case 300 To 400
Range("C5").Select
End Select
ctop = ActiveCell.Top
cleft = ActiveCell.Left
ActiveSheet.Shapes.AddShape(msoShapeLeftArrow, 0, 0, 20, 12#).Select
Selection.ShapeRange.IncrementLeft cleft
Selection.ShapeRange.IncrementTop ctop
If ActiveSheet.Shapes(2).Visible = True Then
ActiveSheet.Shapes(1).Delete
End If
loppu:
Range("A1").Select
End Sub
Kiitos paljon. Nyt pääsen eteen päin