Visualizzazione dei risultati da 1 a 4 su 4
  1. #1

    vba (excel)

    ciuz Friends
    sono un po' arruginito ahime

    ho una serie di pulsanti su foglio excel

    sub commandButton16_Click()
    for i = 1 to 15
    ActiveSheet.Shapes(i).Select
    pippo = ActiveSheet.Shapes(1).Name
    pippo.BackColor = 255
    next i
    end sub

    MA ovviamente non funziona
    in sostanza vorei modificare alcune prprietà dei pulsanti una volta premuti
    chi mi aiuta???

    grazie
    lupoezechiele

  2. #2
    Utente di HTML.it L'avatar di gibra
    Registrato dal
    Apr 2008
    residenza
    Italy
    Messaggi
    4,244
    Non mostri come hai dichiarato pippo...

    In ogni caso
    ActiveSheet.Shapes(1)
    è sbagliato, caso mai sarà
    ActiveSheet.Shapes(i)

    Ma se provi così non funziona?

    ActiveSheet.Shapes(i).BackColor = 255


    Ciao

  3. #3
    Si ovviamente "i"


    no dice "METODO NON SUPPORTATO DALL'OGGETTO"

    lupoezechiele

  4. #4
    la cosa assurda è che
    questo codice
    codice:
    ActiveSheet.Shapes(i).Select
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Line.Visible = msoTrue
    funziona su un vecchio foglio ma se copio ed incollo
    sul nuovo
    sbrocca

    Heeeehelp
    lupoezechiele

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.