Tuesday, March 15, 2016

Fast Solution to Error: 2 Part Question about shapes using vba

2 Part Question about shapes using vba

PART 1: I have 40 shapes all named Card1 thru Card40.  I would like some vba to hide a range of shapes.  So like Card15 thru Card40 would be hidden.
 
PART 2: (a little more difficult) all 40 shapes are over a cell.  The ranges are:
"B2,D2,F2,H2,J2,L2,N2,P2,B4,D4,F4,H4,J4,L4,N4,P4,B6,D6,F6,H6,J6,L6,N6,P6,B8,D8,F8,H8,J8,L8,N8,P8,B10,D10,F10,H10,J10,L10,N10,P10"
So Card1 is over B2, Card2 is over D2 and so on.  I'm not sure how to do it but I would like if a shape is clicked that shape is hidden and the cell value below the now hidden shape is inputted in cell V2.  Then a second shape is selected and that shape
is hidden and the cell value below it is inputted in V3.  Now after the second shape is hidden, both of those shapes will stay hidden for say 5 seconds and then they are shown again.
and the process starts over again.

Solutions to the Problem 2 Part Question about shapes using vba

Download SmartPCFixer to Fix It (Free)

I'm not sure what to say...
What you have described is exactly how mine is working (for me anyway).
 
Just to confirm...
The upper left hand corner of the card is in the cell with the number in it.
If not then mine will not work.
Can you setp through the code one line at a time and see how it is executing.
blnFirstCard should alternate between true and false each time it is run.
 
Try this to see
 
Public Sub ShapeClicked()
    Dim shp As Shape
    Static blnFirstCard As Boolean
    Static shpFirstShape As Shape
   
    blnFirstCard = Not blnFirstCard
    msgbox "boolean " & blnfirstrun
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
    .Visible = msoFalse
    If blnFirstCard = True Then
        msgbox "first card is " & .TopLeftCell.address
        Set shpFirstShape = shp
        .Parent.Range("V2") = .TopLeftCell
    Else
        msgbox "second card is " & .TopLeftCell.address
        .Parent.Range("V3") = .TopLeftCell
        Application.Wait Now + TimeSerial(0, 0, 5)
        shpFirstShape.Visible = msoTrue
        shp.Visible = msoTrue
    End If
    End With
   
End Sub

System Update Readiness Command: To Fix 2 Part Question about shapes using vba

On running the System Update readiness Command, it will Detect & Replace Incorrect Registry data with the Correct one. Which may ultimately Solve 2 Part Question about shapes using vba in Windows.

  1. Open CMD as Administrator by Simply Right Clicking on Start button > Command Prompt (Admin).
  2. Now Type or Copy paste "DISM.exe /Online /Cleanup-image /Scanhealth" and hit Enter,
  3. Now again Type or Copy paste this "DISM.exe /Online /Cleanup-image /Restorehealth" and hit Enter.
  4. Close the Command Prompt Window because we are done.

Reboot your Windows & see if error 2 Part Question about shapes using vba still comes up.

Note: Your administrator's password might be needed.

Another Safe way to Repair the Problem: 2 Part Question about shapes using vba:

 

 

How to Fix 2 Part Question about shapes using vba with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer.  Open it, and it will perform a scan for your computer. The junk files will be shown in the scan result.

2. After the scan is finished, you can see the errors and problems need to be fixed. Click Fix All.

3. The Repair part is finished, the speed of your computer will be much higher than before and the errors have been fixed. You can also use other functions in this software. Like dll downloading, windows updating and print spooler error repair.


Related: 1327 Invalid Drive Z Error Code 80004004 Error Code 137 80072ee7 Fix 3315 Error 26 3213 1726 0X6be Error Code 1393 Acaptuser32 dll Error 3050 Biosinfo dll,Fast Solution to Fix Error 1017 Received Logging On To The Standby Error,Installation Error 1706 Error Fixer,Loopback Failure Error - How to Fix,How to Fix Pro Registry Cleaner Error,How to Fix Win 7 Installation Error Code: 0x800705070 Error Quickly
Read More: Troubleshoot:2 Worksheets, Compare 1 column from each and if the same create 3rd Worksheet. Error,Fast Solution to Problem: 2 screens at the same time,[Solution] 2 laptops 2 desktops all on network but 1 laptop has no access to internet wired or wireless what should i do,How to Fix - 2 much svchost running on my computer?,How to Fix Problem - 2007 Office Word and Excel Suddenly Stop Working?,IE 8: Can't Send Page by Email AND Can't Send Link by Email,I can't connect to yahoo.com for online gaming after installing ex9 is there a problem?,c drive says full with 58gb and drive d has 219gb how to fromat drive c for more gb,Automatic Spelling Correction in MS Excel 2007,Attempting to install a financial program and getting error with regsvr32

No comments:

Post a Comment